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ABSTRACT 


sistency "Instruct 1ote anc tERE: $900 4 1 abe, Be, aT anect 
BBTRINED USING THE CORREEP SNE ING. cata Sortanee nouTeNeE. 


REQUIREMENTS 


EQUIPMENT 
POP11/4S STANDARD COMPUTER WITH FELL OPTION 


STORAGE 
Tye ROUTINES USE MEMORY LOCATIONS 0. =_ 17500. MAP AT THE 
ENO OF LISTINGS | SHOWS THE “i a OTe Locations 4 OF THE 
SRTRRN MATH ROUTINGS WHICH KERE TACSEMELES SEPERATELY NE 


LINKED TO THE MAIN PROGRAM VIA ENXIT ON A OECSYSTEM-10. 


PRELIMINARY PROGRAMS 
COFPA THRU DCFPL 
DING PROCEDURE 
USE STANDARD PROCEDURE FOR ASS TAPES. 
STARTING PROCEDU 


CONTROL SWITCH SETTINGS 
SEE 5.1.1 (ALL DOWN FOR WORST CASE TESTING) 


STARTING ADDRESS 
THE PROGRAM SHOULD ALWAYS GE STARTED AT 200. 


PROGRAM AND/OR OPERATOR ACTION 


) LOAD PROGRAM INTO MEMORY USING ABS LOADER. 
3} LOAD ADDRESS 200. 
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3} Ber ceMarcaes (SEE S.i.1) ALL DOWN FOR WORST CASE. 
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DESCRIPTION 


P} THE sears wih LOOP AND rt WILL_RING ONCE EVERY PASS. 
&) THE are. 1s oe a LL +g THE ITERATION COUNT _iN 
ne LET ope Aig. ey toh ey RIGHT. TO USE, SET THE 

DATA SPLAY" SWITCH TO THE He DIS LAY POSITION. 


any 


OPERATING PROCEDURE 


| OPERATIONAL SWITCH SETTINGS 


uw 


SHCIS) © | n.cces HALT ON ERROR 
SW14> = 1 ...... SCOPE LOOP 
SW(13> = 1 ...... INHIBIT OuT 
SWile> = 1 ...... INHIBIT TRACE TRAPPING 
SWll> = 1 ...... INHIBIT ITERATIONS OF “SUBTEST 
SW°i0) = 1...... BELL ON ERR 
D wenwes BEL tL ON a_i COMPLETE 
SHc0S> = | ...... CORE IMAGE TYPE-OUT (15 eIy WORDS ; 
B aveces FLOATING POINT TYPE-OUT (SIGN, EXPONENT, 
MANTISSA) 
SWiO8> = ] ...... LOOP ON TEST i SW< 7:0) 
W wesses LORD SW<7:0> INTO US REGISTER 


SUBROUTINE ABSTRACTS 
i SCOPE 


THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE 
TEST SECTION. IT RECORDS THE STARTING ge OF Be: 
> 


mom 
rm fu 


UPON. TE THE 
CONTENTS OF LAD MAY BE USED TO DETERMINE THE LAST SugTEST 
SUCCESSFULLY COMPLETED. LAD IS UPDATED INSIDE EACH SUBTEST 
AFTER THE FORTRAN ANSWER IS CALCULATED, SO THAT ‘THE 
ITERATIONS WILL INCLUDE ONLY THE FP11 PORTION OF THE TEST. 


5.2.2 HLT 
THIS ROUT INE PRINTS OUT AN — ites (SE 6.1). 0 
INHIBIT TYPEOUTS, PUT SW<13> ON A 

5.2.2 TRTRAP 


IF Su<l2> IS ON AO, THE T BIT WILL BE SET ON ALTERNA 
PASSES. WHEN SET. IT CAUSES A TRAP AFTER EACH INSTRUCTS 

THE FIRS! INSTRU toh N EXECUTED UPON TRAPPING 1S “RTT* 
WHICH RETURNS 10 THE INTERRUPTED SEQUENCE OF STRICT IONS, 
THIS SEOUENCE 1S. TO ONTENUED UNTIL THE ENC OF THE PROGRAM JIS 


; 


Be) 


NOD SUBTRACT EXERCISER 


REACHED 


~~ a 


MACY11 27(732) 


17-SEP-76 
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DESCRIPTION 


$.2.4 TRAPCATCHER 


a. eteten SEQUENCE is, REPEATED FROM 0 - 776 TO CATCH 
ANY UNEXPECTED TRAPS. THUS ANY UNEXPECTED TRAPS OF 
INTERUPTS WILL HALT AT THE VECTOR + 2. 


FLOATING POINT TRAP (TO 244) 


SINCE SOME OF THE SUBTESTS HAVE INTERRUPTS ENABLED THE 
FLOATING POINT TRAP (FLTERR) CHECKS TO SEE IF FORTRAN ALSO 

CONDITION. IF FORTRAN INDICATE AN 
ERROR, OR INTERRUPTS WERE DISABLED AN ERROR HLT OCCURS (SEE 
S.2.2). AN INTERRUPT WAS BNT ICIPATED, BUT SION’T OCCUR, 
THE SUBTEST WILL DETECT THE ERROR 


wy 
LAs) 
uy 


ao 


ERRORS 


&.1 ERROR PRINTOUT 
THE FORMAT IS AS FOLLOWS: 


om tines ope rec” PEERANO, FOUGLS 
FORTRAN: ANEWER? FPS, FEC, FEA 


WHERE : 


ADDRESS OF ERROR HLT 
RANDOM FLOATING POINT NUMBER INPUTS 
OR THETIC OPERATOR (+ OR -) 


FLOATING POINT aner 
FLOATING POINT STATUS 
FLOATING EXCEPTION CODES (ERROR CODES) Bin 
FLOATING EXCEPTION RODRESS (ERROR ADDRESS? 


TO FIND THE FAILING TEST, LOOK AT THE LISTING ASOVE THE 
ADDRESS TYPED. 


b.¢ ERROR RECOVERY 
RESTART AT 200 


— 


RESTRICTIONS 
NONE 
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DESCRIPTION 


8. MISCELLANEOUS 


8.1 EXECUTION TIME 
A BELL WILL RING WITHIN 15 SECONDS WITH ALL SWITCHES DOWN. 


8.2 STACK POINTER 
STACK IS INITALLY SET TO 600 
8.3 POWER FAIL 


EACH uy! CAN BF POWER ParLee WITH NO ERRORS EXCEPT ON THE 
FEC st; A . USE, START THE TEST AS USUAL AND POWER DOWN 
THEN U TIME. THE PROGRAM RULD TYPE “POWER” AND 

ORT INUE ane RUN WITH NO OTHER TYPEOUTS. 


PROGRAM DESCRIPTION 


THIS PROGRAM TESTS Ke | ADD_AND SUBTRACT INSTRUCTIONS ON THE 
aa | IN ROUND AND TRUNCATE MODES AND WITH INTERUPTS ON AND 
OFF. EACH PROGRAM HAS MANY “Hun 2561 (THE CODE BETWEEN ¢ 
SCOPE STATEMENTS) WHICH ARE R iy ce CONTINUING 
TO THE NEXT. Fat ON A 1C *160) ausTeS TO BE RUN 

ONLY ONCE. T ESS ICNT fins 1000) DISPLAY REGISTER 
ON_THE ee EACH CONTAIN THE ae TION COUNT aire. THE LEFT 


BY i AND TEST NU RIGHT ALL THE 
vo ESTS SHOULD BE RUN SEQUENTIALLY BY STARTING AT 200 NOT 
STARTING AT THE BEGINING OF THE os TQ LOOP ON A 


wd 


TEST WILL BE LOOPED UPON UNTL gu 8> I 
RIGHT BYTE IS CHANGED. IF THE TE 
PROGRAM WILL BE RUN AS USUAL. 


THE FORTRAN MATH ROUTINES WERE TAKEN UNMODIFIED FROM THE 
PDP i ab ORTRAN PACKAGE AND ASSEMBLED AS SEPERATE MODULES. 

NKED TO THE MAIN PROGRAMS VIA LNKXI1 ON A 
oF syste WERE -1 rt WHICH PRODUCES A BINARY TAPE IN THE NORMAL 
ABSOLUTE FORMAT. THUS, THE PROGRAIS PORD AND RUN JUST LIKE 
ANY OTHER DIAGNOSTIC PROGRAM 


NOTE: SINCE THE FPi1 LOAD, STOR AND _ COMPARE 
INSTRUCTIONS (LOF, LOD, STF, STD. CMPF Ep CMPD) ARE ALSO 
USED IN THIS PROGRAM, IT IS POSSIBLE THAT THEY AND NOT THE 

eee AND SUBTRACT INSTRUCTIONS COULD CAUSE ERRORS. 


ee 


FLOATING POINT ADD AND SUBTRACT EXERCISER 


SWITCH OPTIONS AND ERROR BITS 


3000 
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FLOATING POINT ADD AND SUBTSACT EXERCISER 


.GLOB $ADD, $SBR, $SBD 
BORE A AOF 1472, DIGITAL EROS BRENT CORP., MAYNARD, MASS 
“PROGRAM BY KEN’ CHAPM 


SWITCH 


OUTPUT FORM: 


; BODRESS, OPERAND, OPERATOR OPERAND EQUALS 

ANSWER, FPS, FEA 

FORTRAN: 

FPS FEC 

BIT — REASON CODE ~— ERROR 

0 CARRY 0 ADDRESS ERROR 
1 OVERFLOW : OPCODE ERROR 

z ZERO - DIVIDE BY ZERO 
3 NEGATIVE > CONVERSION ERROR 
~ NAINTAINANCE MODE 10 OVERFLOW 

= TRUNCATE 12 UNDERFL OW 

: LONG INTEGER MODE 14 ONGEF INeD alRRIABLE (-0) 
7 DOUBLE PRECISION MOD 16 UBREAK 

z INTERUPT ON CONVERSION ERROR 

S TNTERUPT FLOW 

10 TNTERUPT ON UNDERFLOM 

1 INTERUPT ON UNDEFINED VARIABLE 

: 4 

: 13 

15 INTERUPT ENABLE 

15 ERROR FLAG 


TEST IN 


S 

B 

Sem ON ERROR 

BI PEROT IS 

BIT 

7 sReen TYPEOUTS 
HALT ON ERROR 


re ee ee ee ree rn ee ee ee ewe oe wee + + 


Age ionne 


CO0ESe 


INT AD TRACT EXERCISER 
NENTS-AND VECTOR SREB 
RO= %0 
j= “1 
Re= we 
R3= “3 
R4= “4 
RS= “Ss 
TTY: A) 
P= % 
Bre Ke 
AcO= %0 
ACi= “1 
RCe= %2 
AC3= 4a 
ACY= %4 
acs= re) 
SWO8= 000400 
SWO9= 9001000 
SWi0= 2000 
SWil= 004000 
SWie= 010000 
SWi3= 02000 
CWi4=  O4000 
SW1IS= 100000 
SWR= 177570 
PS= 177776 
ale 
NOP= 40 
SCOPE RAP 
HLT= EMT 
TYPE= IOT 
PELL= 207 
s 0 
s 200 
IMP 
. 2 1000 
ICNT: 
LONUM: CUMMY 
DUMMY 
DUMMY 
DUMMY 
MINUM: DUMMY 
DUMMY 
DUMMY 
DUMMY 


BES 
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4% wNSSe SS68BS Sess SSY88 


rr 


sv! 


INNNOOUBONNNS 


7) 


FLOATING POINT ADD AND SUBTRACT’ EXERCISER 
ANSWER AREA AND SETUP ROUTINE 


011012 


000006 


000 
177560 
919720 


oooo04 
006004 


000910 


010716 
019712 


ANSI: 


ANS2: 


M1120: 


BEGIN: 


#600 
ari126, ae4 


#177772 
. YESRT 
BEGIN 


FPTADR, d#10 


-; au 


ESAT ae14 


#POWDWA, aD 


JOWNVEC 
#340, JDWNVEC+2 


#.10T, 3820 
#30,R 


RO 


#. TRP, (0)4 


#340 {o)+ 


a.Ent (0)+ 


#390 0) 
SFLTERR OFPVECT 


#340, OF PVECT+2 


LAD 
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: FLOATING POINT STATUS 
:ELOAT ING EXCEPTION CONES 


- 
:FORTRAN FLOATING POINT STATUS 
FORTRAN FLOATING —— CODES 
FORTRAN FLOATING P 


;#* STACK AT 600 # 
pF IND OUT WHICH MACHINE THIS [S 
:FUDGE IN RTT IF 11/45 


;LOAD THE ILLEGAL a Bee + VECTOR 
: WITH THE ADDRESS OF THE F 
5 area E FPU WILL HANDLE THE BAD OPCODES 


;SET TRACE TRAP VECTOR 
;SET UP VECTOR 20 

:SET RO TO VECTOR 30 
SET EMT VECTOR 

;SET TRAP VECTOR 


;LOAD INTERUPT VECTOR 
LOCK UP PROCESSOR 


SE EES | ORE GES we eae 


stat 
@ 
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5 RERARRE REA RAE ERAS EA RRE EAE RE AREAL E EERE EERE RAE REAR ELE AA REESE SEALS REL EL ES 
: TEST 1: EXERCISE ADDF (ADD FLOATI NG) 
s SEKKASRSKASALSKS RRA SASSER AASR ASAE RA SARE RAAE RAE FRA LERELAAARE SS SHAA FAAS LSLE 
SCOPE 
010617 O1061e MOVB  S$PLUS, SSIGN+1 ;PUT “+” SIGN IN TYPE-OUT ROUTINE 
0000006 006376 MOV BSADR, .ERRI SELECT PROPER FORTRAN ROUTINES 
006424 MOV #$ADD; “ERR SELECT PROPER FORTRAN ROUTINES 
0000006 006530 MOV #SADR, .ERRS ; SELECT PROPER FORTR TINES 
o06546 MOV #SADD; <ERR4Y SELECT PROPER FORTRAN ROUTINES 
b07400 177556 MOV 8007400, $FPS je Is FBI's IN. FORTRAN ANSWER 
CLR SFEC 
CLR SFPC EER FORT 
CLR FPS :CLR FPU FPS BUFFER 
177532 €LR FEC :CLR FPU FEC BUF 
177530 CLR FPC :CLR FPU FPC BUFFER 
006664 ISR PC, RANDM2 GET RANDOM INPUT DATA 
005722 JSR RY! $POLSH sENTER POLISH MODE 
$P.2A ‘PUSH 2 WORDS ON STACK (LONUM) 
SP. 2B *PUSH 2 WORDS ON STACK CHINUM) 
SADR “ADDRESS OF FORTRAN ADD 
STST DETERMINE THE CONDITION CODES 
$POP2x :POP 2 WORDS AND EXIT POLISH MODE 
177504 MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 
040000 LOFPS #040000 :LOAD FPS, INTERUPT DISABLE 
177426 LOF LONUM, acc LOAD ACO’WITH A RANDOM NUMBER 
177432 LOF HINUM, ACL "LOAD ACI WITH A RANDOM NUMBER 
177446 LDF A AC3 ‘LOAD AC3 WITH THE SUM 
007400 LOFPS #007400 : TURN INTERUPTS ON 
001376 C1OS46 MOY 8.46, LAD “RESET LOOP ADDRESS 
: SEEKS KAAAAAKERSAA LARS LEE SASL FERAL ERA AA LEAL EAARELERA LEAL AAHAHAREFLAFRAEE 
LOF aco, ace -LOAD ACO INTO AC2 
RET]: ADOF Aci Ace ‘ADD ACI BY AC 
177442 TST SFPS CHECK FOR FORTRAN FPS ERROR FLAG 
BMI ERRI ‘BRANCH IF ERROR FLA 
177426 STFPS FPS ; STORE FLOATING POINT STATUS 
177422 177426 CMP FPS SFPS FPS 
BEQ TSTI BRA NCH IF OK 
177372 STF Ace, ANS! SAVE FU ANSWER 
BR END! SKIP COMPARE 
ERR1: CFCC ;WAIT FOR FPU TO FINISH 
177400 177404 CHP FPS,  SFPS s CHECK THE FLOATING POINT STATUS 
Hl 14377 RROR 
ND1 SKIP TO END 
177366 177372 CMP FEC, $FEC :CHECK THE FLOATING EXCEPTION CODES 
BEO +6 BRANCH IF OK 


ee ee ee ee ee ee 5 NA a lh ON i I hTERT EOS tt 


2c 


-_—_—-— Ne en een ens nn iy 
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HL 1+377 FEC IS WRONG 
BR END1 :SKIP TO END 
177354 177360 PC, SFPC K F ATING PC 
ero +377 rsh fe H TP Ok SS IN FPC 
Bee”? Enos ORIP  TOUEND 
TST1: CMP ac2,  aAc3 sCOMPARE FPU ANSWER TO FORTRAN ANSWER 
cree : COPY igre coe CONDITION CODES 
BEG END! RNSHE 
“COMPENSATE FOR FORTRAN tNAC 
177306 OTF AC2, ANSI SAVE er NSH ER 
000001 177302 2B #1 ANS1+2 ‘ BECREMENT FPU ANSWER 
177274 Sec ANS! 
177270 CMPF ANSI, ACR ;CHECK ANSWERS AGAIN 
CFCC 5 COPY FLOATING CONDITION CODES 
BEG END1 Hr OK 
177260 STF Ace, ANSI COVE FPU ANSWER 
HLT ‘FPU AND FORTRAN DISAGREE 
177272 END1: CLR FPS :CLR FPU FPS BUFFER 
SCOPE | 
5 EHELERALLELLEELE LARA EEE LERELELERALE LLL LHL AE LL EEL ERR RLELFELRELEELEE ‘~RELEE 
: TEST 2: EXERCISE ADDD (ADD DOUBLE PRECISION) 
: ALL INTERUPTS ON 
: ROUNDING MODE 
5 RELLERLEEE LAE LE LL ELALERE RAL EREEE RELA RA AERA ALAA ALARA LA AEA LALAERL LALLA j 
007600 177270 MOV #007600,SFPS § ;SET IE BITS IN FORTRAN ANSWER | 
177266 CLR SFEC CLR FORTRAN FEC 
CLR SFPC :CLR ¢ | 
177246 CLR FPS :CLR UFFER | 
177244 CLR FEC -CLR FPU FEC BUFFER | 
177242 €LR FP :CLR FPU FPC BUFFER 
006534 JSR PC, RANDMY :GET T 
905434 JSR RY! $POLSH ENTER POLISH MODE 
$P.4A :PUSH 4 WORDS ON STACK (LONUM) # 
S$P_4B *PUSH 4 WORDS ON STACK (HINUM) 
SADD ‘ADDRESS OF FORTRAN ADD | 
$TST :DETERMINE THE CONDITION CODES 
SPOPYX ;POP 4 WORDS AND EXIT POLISH MODE 
177216 MOV SFPS, RO DISPLAY FLOATING POINT STATUS 
340200 LOFPS #040200 "LOAD FPS, INTERUPT DISABLE AND FD 
177140 LOD LONUM, ACO “LOAD ACO'WITH A RANDOM NUMBER 
177144 LOD HINUM, ACL ‘LOAD ACL WITH A RANDOM NUMBER 
177160 LOD ANS2,’ Aca ‘LOAD ACS WITH THE SUM | 
007600 LOFPS #007600 : TURN INTERUPTS ON 
301664 010260 MOV #.+6, LAD RESET LOOP ADDRESS 
4 SSEEASFEFLA SSE RELEREFEARAALLL LAA AL AAAA SERS KALA AHASRRAERKSAAEAESARERESRER 


LOD ACO, ACe ;LOAD ACO INTO ACe 
RET2: ADDD AC1, AC2 ;ADD ACL BY ACe 


—~—s oe 


o-- 0 -- »-< po o-e~—8 - 


8 888 S888 SBF 
JI Wd Feed dele. 


Ris 
-_ 
io) 


77020 
000001 


177012 
177 

176776 
176772 
176762 


176774 


Oo44C0 
0 


00&15S 





SCMECK FOR FORTRON FPS EReOe a, 
BRANCH IF EPC Fay SE" 
ING POTN? SF a7Us 





WAIT FOR FEU TS FINISH 
ic CK THE FLOATING B22NT SvacUs 
i OF 
:SKIP TO END 
; CHECK Me SLOT ING EXCEPTION TOCES 
fa IF 


CRIP *eoMENO END 
ere _vue PC 


SS IN FPC 
Seip at 


;COMPARE FPU ANSWER TO FORTRAN ANSWER 
COPY FLOATING CONDITION ¢ OES 


K 
TNACCURAC TES. 
VE FPU ANSWER 
SBECREMENT FPU ANSWER 


CHECK ANSWERS AGA 


GAIN 
: COPY HF Ok CONDITION COCES 


SAVE FPU_ANSWER 
:FPU AND Y FORTRAN DISAGREE 


;CLR FPU FPS SUFFER 


1s wememaamae 3-32 ao gat 79+ uaa aaaamaataie a 
s TEST 3: EXERCISE ADOF (ADD FLOA 
OVERFLOW 


TING) 
AND UNDERFLOW INTERUPTS OFF. 


; ROUNDI! 

: SEE RESSEEEEEESESEEESEREESSSSEEEEEEEESERESESEES EEE EEEE ES 444040042042444 
;SET IE ei Ts 3. ANSI 

H 


:CLR FPU FRC BUFFER 
: GET RANDOM inrur SATA 
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TEST SECT 
108 904467 005136 ISR RY, SPOLSH ;ENTER POLISH MODE , ate 
Fs . ) 
Hs Ses bs Pum 6 ASibe Oh AGe (LEN 
120 007 ‘OE TER ERM a 5 
SSSisS BOSSTE £3. OE TOROS ANS ext ON ES 
902124 o16700 178720 MOV SFPS, RO :DISPLAY FLOATING POINT STATUS 
502:30 1701e7 40006 LOFPS #040000 : LOAD FPS, INTERUPT DISABLE 
502134 13 176642 LOF LONUM, aco "LOAD ACO’WITH A RANDOM NUMBER 
602140 5b 178646 LOF HINUM, ACI “LOAD AC1 WI 
CO2144 172767 176662 LOF ‘LOAD AC2 WITH THE SUM 
052150 170127 OO4400 LOFPS 8004400 : TURN INTERUPTS ON. EXCEPT OVERFLOW ANC UNCESFLOW 
902154 012767 lbe 007762 MOV 8.46, LAD :RESET LOOP ADDRESS 
5 SREREFSAFSESLEFSFERAFESELLESSASSFSSELSSLELSRSSSRA LAS SSSSSESSSSS 444444444 
lb2 172600 LOF aco, ace sLOAD ACO INTO AC2 
184 {72201 RET3: ADDF ACL, Ato : ADD 2 : 
166 170067 176650 STFPS FPS i TORE F ORTING POINT STATU 
172 O26767 176644 176650 CMP FPS $FPS CHECK 
002200 001404 BQ STS) : BRANCH TP ox 
O022G2 174267 176614 STF Acz, ANS!  :SAVE FPU ANSWER 
002206 104001 HLT +1 :F 
902219 ooo425 28 END3 :SKIP COMPARE 
002212 0932767 900002 176630 ‘TST3: BIT 82 SFPS  ; CHECK FOR OVERFLOW 
002220 091021 ENE «END ;BRANCH IF OVERFLOW eat 
2e2 173702 CMPF AC, «= AC COMPARE FPU ANSWER TO FORTRAN ANSWER 
002224 170000 CFC ;COPY FLOATING CONDITION CODES 
OCe2ce OO1416 BEQ END3 “ANSWERS CHECK 
- COMPENSATE FOR FORTRAN tNACCURACIES. 
002230 174267 17&S66 STF ACe, ANS!  ;SAVE FPU ANSWER 
002234 162767 OO00001 176562 Sus a! ANS1+2 DECREMENT FPU ANSWER 
ooee42 O0S6E7 176554 ssc ANS 1 
00224 173767 176550 CMPF 86 ANSI, «= ACB sCHECK ANSWERS AGAIN x 
O022S2 170900 CFCC :COPY FLOATING CONDITION CODES 
002254 001403 BEG END3 :BRANCH IF OK 
692256 174267 176540 STF Ace, ANSL  ;SAVE FPU ANSWER 
002262 104990 HLT :FPU AND FORTRAN OISAGREE 
002264 005067 176552 END3: CLR FPS :CLR FPU FPS BUFFER 
002272 104400 SCOPE 
ta. tai an ie tant eo 
TEST 4: EXERCISE ADDO (ADD DOUBLE PRECISION) 
OVERFLOW BND UNDERFLOW INTERUPTS OFF 
ROUNDING MODE 
PITTI TTI Titi tiiiiitiiiiittrrtiitiittiitiitiiititiiitiiittitttittettics 
902272 012767 OO460D 176550 MOV sO04600,S$FPS SET IE BITS IN FORTRAN ANSKER 
2300 O0SOE7 17654 CLR SFEC :CLR FORTRAN FEC 
002204 O05067 176544 eLR SFEC -CLR FORTRAN FPC 
C220 905067 i7e52¢ écR FPS :CLR FPU FPS BUFFER 
552314 805067 176524 CLR FEC :CLR FPU FEC BUFFER 


JCeseS OOS0E7 176522 LR FPC ;CLR FPU FPC SUFFER 
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DCEPSO.Pil TEST SECTION 


002324 OO4767 006014 JSR PC, RANDMY ;GET RANDOM INPUT DATA 
002330 CONE? OO4714 JSR Ry! $POLSH :ENTER POLISH MODE 
002334 007 Pua ip 4 Bees (LONUM) 
8 Pe TACK (HINUM) 
002342 007352 STST TEER THE ION CODE 
002344 007330 SPOPYX DETER ing] tes: ari POLISH SobE 
002346 O18700 176476 MOV SFPS, RO DISPLAY FL Pr Ekoek PO NT TATUS 
892352 1701e7 040200 LOFPS #040200 ‘LOAD F TERUPT E AND FD 
052358 172467 176420 LOD LONUM, ACO *LOAD ACO’ RANDOR NUMBER 
902362 172567 176424 LOD HINUM, ACI ;LOAD ACI HITH & RAROF NUMBER 
062365 172767 176440 LOO ANS2,' ACS LOAD D aCe Ul THE 
002372 170127 004600 : LDOFPS #004600 ; TURN NTERUPTS ON, EXCEPT OVER AND UNDERFLOW 
052376 012767 d0e404 9007540 MOV 8.45, LAD ‘RESET LOOP ADDRESS 
: SSLESFLSSRELESESSSLSSSSSSLSSSFSSELELSSSSLSSSSSSLSSSESSSSSSSSSSESSESSLFG4S4 
002404 172600 LOD co, ace sLOAD ACO INTO AC2 
002406 172201 RET4: ADDD ACl; Ate :ADD ACI BY AC2 : 
002410 170267 176426 STFPS FPS :STORE FLOATING POINT STATUS 
092414 026767 i7&422 176426 CMP FPS $FPS CHECK FPS 
002422 901404 BEQ TST4 BRANCH IF OK 
002424 174267 176372 STD ac2, ANS! SAVE FPU ANSWER 
092430 1940 1 HLT+L EPS ERROR 
002432 l p ENDY :SKIP COMPARE 
002434 032767 OCO002 176406 ‘TST4: BIT 82 SFPS CHECK FOR OVERFLOW 
902442 001025 SNE ENDY BRANCH IF OVERFLOW 
002444 173702 CMPD «= sCéAC2, ~SsoACD ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
o02446 170000 CFCC COPY FLOATING CONDITION CODES 
902450 odoi422 BEG END4 ‘ANSWERS CHECK 
“COMPENSATE FOR FORTRAN TNACCURACIES. 
174267 175348 | oTD aCe, ANS! ; SAVE _FPU ANSWER 
162767 O00! 176244 Sup 8] ANS1+6 :DECREMENT FPL ANSWER 
O02464 OOSEE7 176226 SBC ANS 1+4 
902475 005667 176330 S8¢ aNSi+2 
005667 17b3e2 Sec ANS! 
M02S00 173767 17821E CMPD «=sCoANS, «= ACB :CHECK ANSWERS AGAIN 
002504 170000 CFCC :COPY FLOATING CONDITION CODES 
002506 001403 8EQ ENDY :BRANCH IF OK 
902510 174267 176306 Sto AC2, ANSI i SBVE FPU ANSWER 
9925:4 104000 HLT U AND FORTRAN DISAGREE 
002516 OOS067 176320 END4Y: CLR FPS ai FPU FPS BUFFER 
352E22 104400 SCOPE 
s PEELESFLALES SESE LSLESLESESAARAKRLATSAASERALSFLELFESALSRLTTERASASSAPSBIARE 
TEST 5: EXERCISE ADDF {800 FLOATING) 


; ALL INTERUPTS ON 
erriiriritiititittitititititettititertiittitititiititittetettttrreteree. 


Oces24 012767 ety 176316 MOY 8007440, $F PS ;SET IE BITS IN FORTRAN ANSWER 
582632 005067 314 CLR SFEC ;CLR FORTRAN FEC 
J02536 OQUSUE7 17e21e CLR SFPC :CLR FORTRAN FRC 
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002542 O0S0&7 176274 CLR FPS :CLR FPU FPS BUFFER 
002546 O0S067 176272 CLR FEC CLR LB ERLEPC, we 
Risser BRabbS Arbact geR EES RANOM2 FER ara 
002552 OO4467 dd446e2 JSR RY. $POLSH St POLISH 

007262 $P.2A : PUSH Hg a TACK (LONUM) 
062570 007304 $P. 28 : ON TACK (HINUM) 
692572 9900006 SADR e aie ORTRAN 
652574 0073S $TST TE inet ee CONDITION CODES 
092576 9O07316 $POPex WORDS AND EXIT POLISH MODE 
9026 036709 7be44 MOV SFPS, RO DISPLAY FLORTING PopyT satus 
552604 170le 00 LOFPS  so40000 FPS, allt RUPT SABLE 
092619 172467 178166 LOF LONUM, aco ‘ORD AC RANDOM NUMBER 
092614 172567 i7eize LDF HINUM, ACL :LOAD ACL y th a RANDOM NUMBER 
062620 172767 176206 LOF ANS,” AC3 ‘LOAD AC3 WITH THE SUM 
002624 170127 o07440 ; LOFPS = 8007440 :TURN INTERUPTS ON 
902630 O12e767 002636 90730¢ MOV #.+5, LAD :RESET LOOP ADDRESS 

: SFSFSLELELASFARSESSSESSSSSSSASLELSSSLSETSHSFESSSESLSAELSSSSESSS SASS SESS F44H4 
002636 172600 LOF aco, ace ;LOAD ACO INTO AC2 
002640 172201 RETS: ADDF Ac! Ace : AOD AC] BY ACe 
O02642 005767 176292 TST SFPS CHECK rok FORTRAN FPS ERROR F 
002646 19041¢ BMI ERRS bean RROR FLAG SET 
CO2ESO 170267 17:66 STEPS FPS FL LOR ING POTN STATUS 
002654 OP6767 176162 I761E6 MP FPS $FPS 
002662 091427 BEG TST§ ‘Bn SEACH ree OK 
002664 174267 176132 STF Ace, ANS! :SAVE FPL ANSWER 
902670 104091 HLT+1 
902672 o00455 BR ENDS ‘SKIP COMPARE 
002674 170900 ERRS: CFC sWAIT FOR FEU TO FINISH 
092676 026767 176140 176144 CMP FPS, $FPS § :CHECK THE FLOATING POINT STATUS 
092704 001402 BE +6 “BRANCH IF OK 
092706 104377 HL +377 :FPS ERROR . 
902715 ocoo446 BR ENDS :SKIP TO END 
002712 O26767 176126 176122 CMP FEC, $FEC sCHECK THE FLOATING EXCEPTION CODES 
002720 901402 BEQ +6 :BRANCH IF OK 
002722 104377 HL 14377 , FEC I$ WRONG 
002724 000440 BR ENDS :SKIP TO END 
002726 O267E7 176114 176120 CMe FPC, $FPC :CHECK FLOATING PC 
002734 9014de BEG TST§ :BRAP 
002736 104377 HL 74377 : WRONG MADDRESS IN FPC 
002748 900432 BR ENDS :SKIP TO END 
o0e742 173702 TSTS: CMPF AC2, AC3 ° ;COMPARE FPU ANSWER TO FORTRAN ANSWES 
o02744 170000 CFCC :COPY FLOATING BONDITION CODES 
902746 001427 BEQ ENDS “ANSWERS CHECK 
jC OMPENSETE FOR FORTRAN INACCURACTES. 

002750 174267 i76D4E eTF ACe, ANS! :SAVE FPU ANSW 
002754 62767 000001 17&04e ap #] ANS1+2 INCREMENT FPU ANSKER 
Ste7b2 OOSSE7 176034 AGC BNS1 


AOE76E i73767 176030 CMPF @NSI, AC2 :CHECK ANSWERS AGAIN 
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atte 


o02772 170000 CFCC :COPY FLOATING CONDITION CODES 
Ode774 O01414 BEG ENDS : BRANC 
002776 162767 O0000e 176020 SUB 82 ANS1+2 :DECREMENT FPU ANSWER 
093904 67 176012 SBC ANS 1 
soapig ee ? 176006 CMPF = ANSI, AC : CHECK ANS RS AGAIN 
19 17 CFCC : CO vet TING CONDITION CODES 
903016 001403 BEQ ENDS ; BRE H I alk 
s03t20 174e? 17577 STF Ace, ANS! SAVE FPU ANSWER 
863024 104660 HLT :FPU AND FORTRAN DISAGREE 
902026 OOSOB7 176010 ENDS: CLR FPS CLR FPU FPS BUFFER 
003032 1044 SCOPE 
: SSTSFSPELSELSSSRESFSLLEFLASSSELASSAESESAESAFLSSSSSSSSS GSES E4H4 44444454444 
: TEST 6: EXERCISE ADDD (ADD DOUSLE PRECISION) 
: ALL NTERUPT ON 
: | 3 
: SFSTELELSEREFLSSSSEFRSSTTESLERESSESELSEFSSLRSSLSSLSSSSESESSEESSLESS4 444944 
003934 012767 OO7640 176006 MOV BCO7E4O,SFPS «SET IE ITs IN FORTRAN ANSWER 
503042 005067 i76004 CLR SFEC :CLR FORTRAN FEC 
0032046 005067 176002 cLR $FPC :CLR FORTRAN FPC 
0030S2 005067 175764 SLR FPS :CLR FPU FPS BUFFER 
003056 005067 175762 CLR FEC :CLR FPU FEC BUFFER 
003062 905067 175760 ALR FRC : FPC BUFFER 
003066 004767 005252 ISR PC, RANDMY :GET RANDOM INPUT DATA 
003072 o04467 004152 x5R RY: $POLSH :ENTER POLISH MODE 
903076 097252 SP. 4A PUSH 4 WORDS ON STACK (LONUM) 
903100 007274 $P_4B ‘PUSH 4 WORDS ON STACK (HINUM) 
903102 9000006 $ADD !ADDRESS OF FORTRAN ADD 
003104 007352 $7S7 : DETERMINE THE CONDITION CODES 
2106 007330 SPOP4X :POP 4 WORDS AND EXIT POLISH MODE 
003110 016700 175734 MOV SFPS, RO :DISPLAY FLOATING POINT STATUS 
902114 170127 040200 LOFPS #040200 :LOAD FPS, INTERUPT DISABLE AND FD 
003120 172467 175656 LOO LONUM, aco :LOAD ACO’WITH A RANDOM NUMBER 
003124 172567 175662 LOO HINUM’ ACL :LORD ACI WITH A RANCOM NUMBER 
3130 172767 175676 LOO AN aca ACS Wl THE SUM 
02134 170127 OO7E40 LOFPS #007640 + ORN IN ERUPTS ON 
602140 12767 OO3146 O0b775 MOV #.+6, LAD ‘RESET LOOP ADDRESS 
RSFSR AEAFSSALAELFLELELESLSLALESLALARALELASALERAELAATTRLARELAFA FLSA HTSLS 
093146 172600 LOD aco, ate ;LOAD ACO INTO AC2 
003150 17220! PETE: ADDOD AC ate :ADD ACI BY nce 
003152 005767 175672 TST — SPS s CHECK FOR FORTRAN FPS ERROR FLAG 
O53i56 10041 BMI ERRE :BRANCH IF conan e LAG SET 
803160 170267 175€S& STEPS FPS STORE FLOATING POINT STATUS 
603164 O26767 175852 175656 CMP FPS S$FPS FPS 
093172 001427 BEO TST BRA SCH IF OK 
003174 174267 175¢e2 STD ace, ANS! i SAVE FP ANSWER 
003200 104001 HLT+1 FPS ERROR 
§tz2te cooses BR END SKIP TO END 


O0320% i700C0 EMRE: CFCC sWAIT FOR FPU TO FINISH 


203346 
003350 
003354 


003356 
003362 


005067 
104400 


012767 


ELOBTING POINT ADD AND SUBTRACT EXERCISER 
TEST SECTION 
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175630 175634 CMP FPS,  $FPS fe Wie Ok FLOATING POINT STATUS 
BE + RA 
HL T4377 sEPS ERR 
BR END6 P TO OENO 
i7Sb1& 175622 CMP FEC, SFEC : CHECK att FLOATING EXCEPTION CODES 
BEG +6 : RONG F OK 
HL 1+377 EC ie Tone 
BR END& ‘SKIP TO END 
175604 175610 CMP FPC, $FPC ;CHECK FLOATING PC 
BEQ TSTé ;BRANCH IF OK 
HL T4377 : WRONG ADDRESS IN FPC 
BR END& SKIP TO END 
TST&: CMPD ACe, Aca :COMPARE FPU ANSWER TO FORTRAN ANSWES 
CFCC : COPY FLOATING CONDITION CODES 
BEO END6 ANSWERS CHECK 
- COMPENSATE FOR FORTRAN INACCURACIES. 
175536 pie) aCe, ANS] -SAVE FPU ANSWER 
000001 175536 ADD ! RvSi+6 + PNCREMENT FPU ANSWER 
175530 ADC ANS 144 
175522 ADC ANS1+2 
175514 ADC ANS 1 
175510 CMPD ANSI, AC : CHECK ANSWERS AGAIN ” 
CFCC :COPY FLOATING CONDITION CODES 
% BE ENDE :BRANCH IF 
oo92 175504 Sug 82 ANS1+6 :DECREMENT FPU ANSWER 
175476 SBC NS 1+ 
479 Sec ANS1+2 
175462 Sac NS} 
175455 CMPD =soaANS1, «= AC ;CHECK ANSWERS AGAIN 
CFCC :COPY FLOATING CONDITION CODES 
BEG ENDE 7 : BRANCH pif ok 
175446 S7 Ace, ANS! :SAVE FPU ANSWER 
HLT : FRY AND J EORTRAN DISAGREE 
175460 END6: CLR FPS :CLR FPU FPS BUFFER 
SCOPE 
ae a Rete ae eee tet 
sTEST ?: EXERCISE ADDF (ADD FLOATING 
OVERFL ou BNO UNOERFL Ok INTERUPTS OFF. 
POTEET TTT ETT TET ET ETE EP Perr herr EP T ETE E ETT EET T PETE TTT TTT TT Ter 
OO444O 17S4SE MOY 8OC4H4O, SFPS :$E7 TE BITS Hi. FORTRAN ANSWER 
175454 CLR SFEC RTRA 
175452 CLR $FPC rock FORTRAN FPC 
175434 CLR FPS LR FPU FPS BUFFER 
175432 CLR FEC cL R FPU FEC BU FFER 
75435 CLR FEC R FPU FPC 
O4SES SR PC, Ranom2 CET RANDOM TRPUT Rata 
o03b22 JERRY, $POLSH :ENTER POLISH MOD 
$P.2A sPUSH 2 WORDS ON STARCK LONU™ 


‘A oh! Ms ~ | Rell oD 


DCF PSDP 


O93t¢e 
133526 


= 
wud 


007304 
0000006 


Bor ai6 


012767 


172600 


001403 
174267 
104000 


005067 
104400 


FLOATING POINT ADD AND SUBTRACT EXERCISER 
TEST SECTION 


i7S404 
040900 
17$3e6 
17533¢ 
Te Sag 
OO4440 
003476 


175334 
17$330 


17300 


000002 


175202 


175214 


OO4E40 
175219 
175206 


006446 


175334 


175246 


1752i¢ 
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;PUSH 2 Wee ORT Ri (HINUM) 

:ADD Ress OF FORTRAN ADD 

DETERMI THe COND TION CODES 
AND EXIT POLISH MODE 


SDISPLAY FLOATING POINT STATUS 
LOAD FPS, INTERUPT DISABLE 


LOAD AC AR M NUMBER 
;LOAD ACL ware AR NUMBER 
: LOAD C3 WITH 


THE SUM 
: TURN INTERUPTS ON, EXCEPT OVERFLOW GNC UND 
‘RESET LOOP ADDRESS 


5 FEFRALERALSSALSLERELELL LALLA ESE LA FLEA ERA LERERELLAS FLEAS FLSA ESSE SFFS 444 


R 


~4 


E 


$P.28 
SADR 
gist 
POPex 
MOV PS, RO 
LOFPS #040000 
LOF ONUM, ACO 
LOF HINUM, ACI 
LOF ANSe,’ ac3 
LDFPS § #004440 
MOV -*6, LAD 
LDF aco, ace 
ET?: ADDF ACL’ ACe 
STFPS FPS 
CMP EPS SFPS 
BEQ TST? 
STF Ace, ANS! 
HLT+1 
BR END? 
St7:; BIT 2 SFPS 
BNE ENA? 
CMPF _- 
cece 
BEQ END7 
“COMPENSATE FOR FORTRAN 
STF Ace, ANS! 
ADD #1 ANS1+2 
Adc ANS! 
CMPF ANSI, ACB 
CFCC 
BEG END? 
SUB #2 ANS1+2 
Sec ANS! 
CMPF »=6soNS1, «= AC 
CFC 
BEG END? 
STF AC2, ANSI 
HLT 
NO7: CLR FPS 
SCOPE 


;LOAD ACO INTO ACe 
ADD AC] BY AC2 
: STORE 1h" ghee POINT STATUS 


: CHECK F 
; BRANCH 


IF OK 
:SAVE FPU ANSWER 
:SKIP COMPARE 


t 


pn es FOR Pree 
;COMPARE FPU ANSWER RAN ANSWES 
:COPY FLOATING COND! OES 

j ANSHERS CHECK 

;SAVE FPU ANSWER 

: INCREMENT FPU ANSWER 

;CHECK ANSWERS AGAIN 

; COPY eee CONDITION CODES 


: BRANCH 
; DECREMENT PRU ANSWER 


;CHECK ANSWERS AGAIN 

;COPY FLOATING CONDITION CODES 
BRANCH IF OK 

:SAVE FPU ANSWER 

:FPU AND U FORTRAN DISAGREE 


;CLR FPU FPS BUFFER 


Ly seaman oe O04 eu anata 
EXER OVERFLOW DOUBLE PRECISION) 


10; 


TRUNCATE M 


AND _UNDERFLOW INTERUPTS OFF 


PTE TTT TT TT TTT TT ereTT Pert Pern ETT T EET TTT ETT T TTT ETT T Teer eT 


MOV 
CLR 
CLR 


#004 
SFEC 
SFPC 


640, SFPS 


dod! i airs 5 FORTRAN ANSWER 
ie: FORTRAN FPC 
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nee 90506 67 175170 CLR FPS CLR FPU FP UFFER 
175166 €LR FEC ;CLR FPU FEC BUFFER 
SoeDe? sauce SRC’ oRaNoMy {GET RANDOM IRPUT DATA 
Soaebe 467 nee 3 JSR RY’ $POLSH HENTER POLISH MOOE 
003672 007252 $P.4A ;PUSH 4 WORDS ON STACK (LONUM) 
003674 Cee sp. WORDS ON STACK (HINUM) 
ra 
903700 0073Se STST tee nee Mh CODES 
003702 007330 SPOPYX 4 WORDS AND EXIT POLISH MODE 
003704 018700 175140 MOV RO ereunr FLOATING POINT STATUS 
003710 170127 o40c00 LOFPS #040200 : LORD FPS, uPNTERUET DISABLE Bt AND FD 
903714 172467 175062 LOD LONUM, ACO sL MBER 
603720 172567 175066 LOO HINUM; ACI “LOAD ACL WITH A RANDOM NU R 
003724 172767 175102 LOD ANS2, AC “LOAD ACZ WITH THE SUM 
00373¢ 170127 OO4640 LOFPS #004640 : TURN INTERUPTS ON, EXCEPT OVER AND UNDE 
903734 012767 O03742 ocobede2 MOV #.+6, LAD "RESET LOOP ADDRESS 
s RELEEALLAEREKET TARELELAEALEREREASAALALA LEASE LERALALAEAALSSALAARSSLERESSLF LSS 
003742 172600 LDD aco.  ac2 :LORD | aco INTQ ace 
003744 172201 RET10: ADDD ACI; Ace :ADD ACI BY AC2 
003746 170267 175070 STEPS FPS +O PORE E FLOATING POINT STATUS 
003752 O26767 175064 175070 CMP FPS SFPS :CHECK FPS 
003765 001404 BEG TsTlo :BRANCH IF OK 
003762 174267 175034 STD AC2, ANS!  :SAVE FPU ANSWER 
003766 104001 HLT+1 IF 
003770 OO0446 BR END1O :SKIP COMPARE 
003772 032767 o00002 175050 TSTiO: BIT #2 SFPS CHECK FOR OVERFLOW 
004000 ooi04e BNE ENO10 ; BRANCH If OVERFLOW 
004962 173702 CMPD AC2, ACB OMPARE FPU ANSWER TO FORTRAN ANSWE> 
0904004 170000 CFCC EOpY FLOATING CONDITION CODES 
004006 001437 BEG END10 NSWERS CHECK 
"COMPENSATE FOR FORTRAN tNACCURACIES. 
004010 i74267 175006 éTD Ace, ANS! ;SAVE FPU ANSWER 
004014 062767 GO0001 175006 ADD #] ANS1+6 INCREMENT FPU ANSWER 
o040e2 005567 000 ADC ANS1+4 
005567 174772 ADC ANS14+2 
004032 005567 174764 ABC ANS] 
904936 173767 174760 CMPD =6soANS1, «= ACB :CHECK ANSWERS AGAIN 
094042 170000 CFCC :COPY FLOATING CONDITION CODES 
904044 001420 BEQ END10 :BRANCH IF OK 
OO040468 162767 OOO0oD2 174754 SUB #2 ANSI+& :DECREMENT FPU ANSWER 
O04054 O0S667 174746 Sac ANS1+4 
d04E0 7? 174749 SBC ANS 1+2 
OO4064 005667 174732 Sac ANS 1 
904070 173767 174726 CMPD =soANSI, «= AC HECK ANS in GAIN - 
004074 170000 CFCC By oft gat CONDITION CODES 
904076 001403 EO END1O 
004100 174267 174716 STD ac2, ANS! OEY FP ne Nu ER 
604104 104000 HLT -FPU AND FORTRAN DISAGREE 
OO4106 OOS067 174730 END!O: CLR FPS :CLR FPU FPS BUFFER 


CO4ile 1S4400 SCOPE 


n . 
7 
~ 


004340 
OO4346 
004355 


1-DCFPS-D 


116767 
012767 


OOC444 
170000 
7 


026767 
001402 
104377 
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TEST SECTION 
¢ RRERERESAARAREAAELAAAEAALAARALAALARAL ALLA LALA SLA LESS SLA AE LSLES SALES SS4F 
:TEST Ll: EXERCISE SUBF (SUBTRACT FLOATING) 
; ALL INTERUPTS ON 
: SLLLALALALAALAA LA LAL ALALAAALAAALALELALERERESEAEAA LHRAELEASARRL RASS E SAGAS 4494 
005732 005724 MOVB = SMINUS, SSIGN+1 sPUT "=" SIGN IN TyPE-OUT ROUT INE 
Ses arse YH “Ee JSEUECT Paoeeg etree uri 
renee 003642 MOV pe ‘Efe SELECT pROEER FORTRAN ROUTINES 
0000006 003660 MOV 8$S8D. .ERRY  :SELECT PROPER FORTRAN ROUTINES 
007400 174670 MOV 2007400, SFPS  -:SET IE BITS IN FORTRAN ANSWER 
1 CLR SFEC :CLR FORTRAN FEC 
174664 ¢LR SFPC :CLR FORTRAN 
174646 CLR PS -CLR FPu FPS BUFFER 
174644 CLR FEC :CLR FPU FEC BUFFER 
174642 CLR FPC :CLR FPU FPC BUFFER 
003776 JSR PC, RANOM2 :GET RANDOM INPUT DATA 
003034 JSR RY’ $POLSH ‘ENTER POLISH 
$P.2A ; PUSH 2 WORDS ON STACK (LONUM) 
$P. OB H 2 WORDS ON STACK CHINUE) 
$SBR ADDRES OF FORTRAN SUBT 
STST ; DETERM NE THE CONDITION CSDES 
$POP2X :POP 2 WORDS AND EXIT POLISH MODE 
174616 MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 
040009 LOFPS #040000 ;LOAD FPS, INTERUPT DISABLE 
174540 D ONUM, ACO *LOAD ACO’WITH A RANDOM NUMBER 
174544 LOF HINUM, ACI ‘LOAD AC] WITH A RANDOM N 
174560 LD ANS2, ACB ;LOAD AC3 WITH 
007400 LOFPS #007400 : TURN INTERUPTS 
004264 o9S660 MOV #.+6, LAD ?RESET LOOP ADDRESS 
5 KASALFAARELELE LA AAE LEAL AA ALA RELA SALA LARA SLAASAAAA ARAL ARS EAALALLFA LSE LLZSE 
LOF aco, ace ;LOAD ACO INTO AC2 
RET11: SUBF ACI ace :SUBTRACT AC] BY AC2 
174554 TST SFPS ; CHECK FOR FORTRAN FPS ERROR FLAG 
BMI ERR11 ?BRANCH IF ERROR T 
174540 STFPS FPS ; STORE FLOATING POINT STATUS 
174534 174540 CMP FPS SFPS FPS 
BEQ TSTl1 BRA NCH IF OK 
174504 STF ate, ANS! ;SAVE FPU ANSWER 
HLT+1 :FPS ERROR 
R END11 :SKIP COMPARE 
ERR11: CFCC ;WAIT FOR FPU TO FINISH 
174512 174516 CMP FPS, $FPS :CHECK THE FLOATING POINT STATUS 
+6 ; BRAN CH IF OK 
HLT+377 
END11 SKIP TO END 
174500 174504 CMP FEC, SFEC :CHECK THE FLOATING EXCEPTION CODES 
BEG +6 : BRA NCH IF 
HL 14+377 “FEC IS PRONG 


EE EO Se eno 


2H. 
o-- 9p 


004370 
004372 
004374 


004432 
004436 


ee 
BEB 


O4ESe 
O4SS4 
O04SS6 


-DCFPS-D 


000427 


012767 
005067 


FLOATIN 
TEST SECT 


174466 «= 174472 


174372 


174404 


007600 
0 


002546 


174330 
) 


ave 


174266 


174414 


174402 


005372 


TSTll: 


END11: 


ee 9 ADD AND SUBTRACT EXERCISER 


BR END11 
CMP FPC, SFPC 
BEQ TST1i 

HL 14377 

BR END!1 

CMPF a AC3 


~ 


{COMPENSATE "FOR oi 


SUB #! ANS1+2 
SBC ANS1 

CMPF 6 ANSI, ACB 
CFCC 

BEQ ENDil 

STF Ace, ANSI 
HLT 

CLR FPS 

SCOPE 
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;SKIP TO END 
ER BNCH F ab PC 


K 
SS IN FPC 
sn TO END 


;COMPARE FPU ANSWER TO FORTRAN ANSWER 
: COPY dN dP CONDITION CODES 


S CHECK 
{NACCURACIES. 


Save FPU_ ANSWER 

:DECREMENT FPU ANSWER 
;CHECK_ANSWERS AGAIN 

sCOPY a ee CONDITION CODES 

BRANCH IF OK 

: SAVE “pu 


ANSWER 
:FPU AND FORTRAN DISAGREE 
;CLR FPU FPS BUFFER 


5 RERASEAAALLKRERLLEA ELLER LE SE RAELELELELA ELE LE LELASLALELAL ELE LAL SL ALLL S44 


T le: 


EXERCISE SUBD lad Baa PRECISION) 


ALL INTERUPTS 
ROUNDING MODE 
5 KERALA AERALL LALLA RARER E LAER EAA LEL ALARA RESALE LEL ELA RAL LARA LE FALL ALEE 


;SET IE BITS ih FORTRAN ANSWER 

:CLR FORTRAN FEC 

:CLR FORTRAN F 

;CLR FPU FPS BUFFER 

:CLR FPU FEC BUFFER 

:CLR ta Rk FPC BUFFER 

:GET RANDOM INPUT DATA 

ENTER W babe 

;PUSH 4 WORDS ON STACK (LONUM) 

4 WORDS ON STACK (HINUM) 
TRAN TRACT 

; CONDITION CODES 

;POP 4 WORDS AND EXIT POLISH MODE 

;DISPLAY FLOATING POINT STATUS 

:LOAD FPS, INTERUPT DISABLE AND FD 


“OAD ACO’ WITH ; RANDOM NUM BER 
:COAD ACI WITH R RANDOM NUMBER 
AC3 WITH THE S 


sl C 
; TURN _INTERUPTS ON 
RESET LOOP ADDRESS 


5 RREAEESEEELE RAE LAL AL ELALELAELAELALELES RELA ARLE RA RALARSLALALRARTTRAAAF2 


RETIle: 


MOV #007600, SFPS 
CLR SFE 

éLR FPC 

CLR FPS 

CLR FEC 

CLR FPC 

JSR PC, RANOMY 
JSR RY! $POLSH 
SP. 4A 

$P.4B 

$SBD 

$TST 

$POPYX 

ov PS. RO 
LOFPS #0402 

LD LONUM, ACO 
as) HINUM? ACI 
LOD ANS2, Aca 
LOFPS #007600 

MOV +6, LAD 
00 aco, ace 
SUBD = ACL ace 
TST SFPS 


;LOA re INTO S a 
: SUB RAC 
;CHECK FOR FORTRAN Fes ERROR FLAG 


MAINDEC-11-DCFPS-D FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE 24 
DCFPSD.P11 TEST SECTION 
QO¥SBe 190418 BNI ERR12 s BRANC He IF ERROR FLAG SET 
O4564 170267 174252 TFPS FPS ‘STORE FLOATING POINT STATUS 
004570 026767 174246 174252 CMP FPS SFPS  — ; CHECK FPS 
pove76 1427 BEQ tsTl2 ‘BRANCH IF 
174267 174216 STD ACe, ANSI SAVE _FPU ANSWER 
694604 104001 HLT +1 FPS ERROR 
4606 900450 R END12 ‘SKIP TO END 
004610 170000 ERR12: CFCC -WAIT FOR FPU TO FINISH 
Dowels Geb767 174224 174230 CMP FPS,  SFPS j CHECK 14 FLORT ING POINT STATUS 
o4 14 BEQ 46 :BRA 
904622 104377 HLT+377 FPS NERROR 
004624 900441 BR END12 :SKIP TO END 
004626 767 174212 174216 CMP FEC, $FEC ;CHECK THE FLOATING EXCEPTION CODES 
004634 001402 BEQ +6) BRANCH IF 
004636 104377 HL +377 ‘FEC TRONG 
004640 000433 BR END12 :SKIP TO END 
004642 026767 174200 174204 CMP FPC, SFPC ; CHECK FLOATING PC 
004650 001402 BEQ TsTle ‘BRANCH IF 
004652 104377 HL 1+377 : WRONG ADDRESS IN FPC 
004654 o00425 R END12 :SKIP TO END 
004656 173792 TST12: CMPD AC2, ACB sCOMPARE FPU ANSWER TO FORTRAN ANSWER 
004660 170000 CFCC :COPY FLOATING CONDITION CODES 
004662 001422 SEQ END12 “ANSWERS CHECK 
“COMPENSATE FOR FORTRAN INACCURACTES 
00464 174267 174132 7 STD ACe, ANS AVE FPU ANSWE 
004670 162767 OO000! 174132 Sus I ANS1+6 : DECREMENT FPU ANSWER 
004676 005667 174124 SBC ANS 1+ 
004702 O0S5667 174116 SBC ANS1+2 
004706 005667 174110 Sec ANS1 
004712 173767 174104 CMPD ANSI, AC2 ;CHECK ANSWERS AGAIN 
004716 170000 CFCC : COPY FLOATING CONDITION CODES 
004720 001403 BEG END12 :BR F 
004722 174267 174074 STD Ace, ANS! SAVE Epi ANSWER 
004726 HLT ?FPU AND FORTRAN DISAGREE 
004730 OOSOB7 174106 END12: CLR FPS ;CLR FPU FPS BUFFER 
004734 104400 SCOPE 
5 RELAERELLAAE RELA LE LLAL AERA LEELA EREE EA LAL ERR RLARALLA RA RA LALA RAAL ARLE 
: 13: EXERCISE SUBF (SUBTRACT FLOATING) 
: OVERFLOW AND UNDERFLOW 'NTERUPTS OFF. 
: ROUNDING MODE 
: FEEL EFELKELE LLL ESLELE LES EALE RS EAA LR ERLE EERE HA RSL A EERERAARFSFA RRS F H+ ALR AG 
004736 912767 O4400 174104 MOV #OO4400,SFPS §;SET IE abiis IN. FORTRAN ANSWER 
004744 905067 174102 CLR SFEC CLR FOR 
904750 005067 174100 CLR SFPC :CLR FORTRAN FPC 
004754 O0S067 174062 CLR FPS ‘CLR FPU FPS BUFFER 
004760 067 174060 CLR FEC ;CLR FPU FEC BUFFER 
004764 005067 174056 CLR FPC “CLR FPU FPC BUFFER 
94770 004767 003212 ISR PC RANDM2 :GET RANDOM INPUT DATA 
004774 OO4467 O022509 JSR RY’ $POLSH ;ENTER POLISH MODE 





oo oO 
Ooo ao 


00 
o0Se2le 


005067 
104400 


012767 
005067 


004767 


i 


FLOATING POINT ADD AND SUBTRACT EXERCISER 
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cr i a a ee 
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PUSH 2 WORDS ON STACK (LONUM) 


‘PUSH wats ON May (HINUM) 
ADDRESS OF FORTRAN SUBTRAC 
ION CODES 


; DETERMINE THE CONDI 
;POP @ WORDS AND EXIT POLISH MODE 


;DISPLAY FLOATING POINT STATUS 
;LOAD Ast INTERUPT DISABLE 


THE 
: TURN INTERUPTS ON EXCEPT OVERFLOW AND UNDERFLOW 
*RESET LOOP ADDRESS 


5 RERAREREAH RR RE ALES ELLE REL EKER ALAA ALARA EERE EERE RERALE LALLA ASAE RRERALELESS 


;LOAD ACO INTO ACe 
SUBTRACT ACI BY ACE 
; STORE  aaetae POINT STATUS 


K 
BRANCH IF OK 


SAVE FPU ANSWER 
RROR 
SKIP COMPARE 
;CHECK FOR OVERFLOW 
sBRANCH IF OVERFLOW 
3C FPU ANSHER TQ FORTRAN ANSWER 
:COPY FLOATING CONDITION CODES 
SWERS CHECK 


AN 
tNACCURACIES. 
SAVE FPU 


E ANSWER 
;DECREMENT FPU ANSWER 
;CHECK ANSWERS AGAIN 
; COPY ee CONDITION CODES 


H_IF 
SAVE FPU_ANSWER 
;FPU AND FORTRAN DISAGREE 


;CLR FPU FPS BUFFER 


eer ide EXERCIGE SLED (SLETRACT DOMME Preclcian eee 


TEST 14: EXER mee 3% pS Mage DOUBLE PRECISION) 


So, Aer Lae INTERUPTS OFF 


R 
HGH HE HEHE HEHEHE EEE 


$P.2A 
$P. OB 
$SBR 
STST 
$POP2xX 
174032 MOV PS, RO 
0000 LOFPS #040000 
7374 LOF ONUM, ACO 
173760 LOF HINUM, ACI 
173774 LOF ANS2, ACB 
004400 LOFPS #004400 
o95050 005074 MOV #.46, LAD 
LDF aco, ace 
RET13: SUBF acl, Ace 
173762 STFPS FPS’ 
173756 173762 CMP FPS SFPS 
BEQ TsT13 
173726 STF AC2, ANSI 
HLT+1 
BR END13 
oooog2 173742 ‘TST13: BIT #2 SFPS 
BNE END13 
CMPF AC2, C3 
CFCC 
BEQ END13 
“COMPENSATE FOR FORTRAN 
173700 STF AC2, ANS! 
000001 173674 SUB #1 ANS1+2 
173666 SBC ANS1 
173662 CMPF ANSI, ACR 
CFCC 
BEQ END13 
173652 STF Ace, ANS! 
HLT 
173664 END13: CLR FPS 
SCOPE 
4600 173662 MOV #004600, SFPS 
173660 CLR SFEC 
173656 CLR SFPC 
173640 CLR FPS 
173636 CLR FEC 
173634 CLR FPC 
003126 ISR PC, RANDMY 


:CLR 


;SET IE BITS A idea ANSWER 


ORTRAN 


eat Sa | detache 


, DCFPSD.P 


oc 
005462 


OOS404 
005410 


005412 


005439 


004467 
0072Se 


007274 
G 


005067 
104400 


012767 
005067 
005967 
005067 


FLOATING POINT ADD AND SUBTRACT EXERCISER 
TEST SECTION 


002026 


173540 
173834 


173504 


ooocde 


173430 
173420 


173432 


007440 
6 


173406 


o046Se2 


173540 


173520 


173456 


173430 
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;ENTER POLISH MODE 
;PUSH 4 WORDS ON STACK (LONUM) 
WORDS ON STACK (H ) 


4 WORDS AND EXIT POLISH MODE 


rs FLOATING RUPT QISABLE, BND F FD 
fe Ac8 ula H AURANDOM NU NUMBER 
WITH A ‘ert NUMBER 


it ORD ACS METH THE SUM 
: TURN INTERUPTS ON, EXCEPT OVER AND UNDERFLOW 
‘RESET LOOP ADDRESS 


j RERERELE LEAL LEELA LAEL EL AA RA LA REAL LA RRAA A RESELL RAE ELE LAA EAE SELL LERALES 


RETI4: 


TST14: 


END14: 


JSR RY, $POLSH 
$P.4AQ 

sa. 

SPOP4X 

MOV SFPS, RO 
LDFPS #40200 

LOD LONUM, ACO 
LOD HINUM, ACI 
LOD ANS2,’ AC3 
LOFPS #004600 

MOV +6, LAD 
LDD aco, ace 
SUBD ACI, ACe 
STFPS FPS’ 

CMP FPS SFPS 
BEQ erty 

STD AC2, ANSI 
HLT+1 

BR END14 

BIT #2 SFPS 
BNE ENOL 

CMPD AC2, ACB 
CFCC 

BEQ D14 
-COMPENSATE FOR FORTRAN 
he) Ce, 

SUB 1 ANS1+6 
SBC ANS 1+4 

SBC ANS1+2 

SBC ANS1 

CMPD ANSI, ACI 
CFCC 

BEG END14 

STD Ac2, ANSI 
HLT 

CLR FPS 

SCOPE 


;LOAD ACO INTO AC2 

;SUBTRACT ACI BY AC2 

j STORE FLOATING POINT STATUS 
CHECK FPS 


;BRANCH IF OK 
;SAVE FPU ANSWER 


s OR 
;SKIP COMPARE 


;CHECK FOR erat pe 
BRANCH IF OVERFLOW 

;COMPARE FPU ANSWER TO FORTRAN ANSWER 
:COPY FLOATING CONDITION CODES 


7.) 
tnac 

BAVELRP ANSWER 

i BECREMENT FP ANSWER 


;CHECK ANSWERS AGAIN 
; COPY HF Ok CONDITION CODES 


: SAVE FPU_ANSWER 
;FPU AND FORTRAN DISAGREE 


SCR FPU FPS BUFFER 


iTeeT igs EXERCISE SLBF (SUBTRACT FloaTING) rere 
XER 


CISE SUBF (SUBTRACT FLOATING) 
ALL INTERUPTS ON 


RUNCATE HOD 
5 FEEL ERAEL LL AEREEAEERERE LE EERE LES LERERELERERELLARERELE RELL LARARALLTFRUEE 


#007440, SFPS 
EC 

SFPC 
S 


set IE airs ; ANSWER 


:CLR FPU FPS BUFFER 





BEBE 


~! 


C00 »-->-8-¢) 


> 


as 


173252 


173240 


173226 





Dos420 


173300 


1732S6 


173244 


172154 


ear ee 
put ew” GE AESCISER 


7 FEC 
=e 5= 
35R a RENUM2 
SR RS! $POL 
Hae 

“38 
$sae 
$757 
$POP 2K 
NO’ SFPS RO 
-pEPS 2040000 
CBF LONUM, CO 
LDF HINUM, ACL 
ni 
(= eS a0 ‘ 0 
MOV 8.46, LAD 


LOF = ACO, Ss AC 


SURF AC aCe 
ST SFPS 
BMI ERRIS 
STEPS = FPS 
MP FPS SFPS 

Q TsT1s 
STF Ace, ANSI 
HLT+] 
ge ENDIS 
CFCC 
CMP FPS,  $FPS 
BEG +6 
HL T4377 

ENOLS 

CMP FEC, SFEC 
BE +6 
HL 1+377 
oF ENDLS 
CMP FPC, SFPC 

Q TSTis 
HL 74+377 

ENDIS 


CMPF ACe, ACS 


hf 

ADD a! ANS1+2 
ADC ANS} 

CMPF ANSI, «AC 








: ORTRAN SUBTRACT 
DETERMINE THE CONDITION CODES 
POP 2 AND EXIT POLISH Moce 

;O1SPL Ay FLOATING POINT sraTus 

fa ‘uttn A PANEGR SUnOE 

:LOAD ACL WITH A RANDOM NUMBES 

;,0RO ACS WITH THE SUM 

: TURN INTERUPTS ON 


IN 
:RESET LOOP ADDRESS 


 PRRESSESSSFSSSSSSSSSSSSSESSSSSSSSSSSSSERSSSSSSSSSESSLS S45 44455445449954 


;,0AD_ ACO INTO ACe 


‘Meck FoR FOR 
fy IF ERROR F 


ACe 
FPS on FLAG 


;WAIT FOR FPU TO FIN 3 
Crecx he AS ORTING OINT STATUS 


Pps E FRR 
SKIP TO “EN 


1 EEK THE FLOATING EXCEPTION CODES 
;BRANCH IF OK 


SFEC_IS WRONG 
SKIP TO END 


i CHECK 6 es PC 


H 
WRONG ADDRESS IN FPC 
SKIP TO END 


;COMPARE FPU ANSWER TO FORTRAN ANSWER 
COPY FLOATING CONDITION CODES 
“ANSWERS CHECK 


BEG ENDIS 
jCONPENSATE FOR FORTRAN | INACCURACTES. 


;SAVE FPU ANSWER 
SNCREMENT FPU ANSWER 


;CHECK ANSWERS AGAIN 
:COPY FLOATING CONDITION CODES 


ES = ES EES EO ee aw eee 
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poste gus R 9 ENDIS BRANCH IF. OK 
5 oooog2 173132 UB tié2 QNS1*2 DECREMENT FPU ANSWER 
a Ca TES a ae 
' bate ‘ Kee ieoby FLoat ine CENBTTION CODES 
R585 14 BES’ ss ENDS 
05708 174267 «173210 Bre EMTS onst LEAVE EPO ARGHER 
S9E712 104000 HLT :PU AND FORTRAN DISAGREE 
S714 OOS? 173122 ENDIS: GR FPS -CLR FPU FPS BUFFER 
5 SELSFFTESFSSSSSLESESARELSASSRESLSLSSRSLAASAFAEAASSSSFFSASASS SAAS S44444444 


: TEST 16: EXERCISE SUBD (SUBTRACT DOUBLE PRECISION) 
; at ANTERUE TP ON 


ITITITitiititrrritittttitiirrretitteritiitititttitititirtttttttttt tite 


005722 912767 O 173120 MOV 8O07640,SFPS §;SET IE BITS IN FORTRAN ANSWER 
905730 005067 173116 CLA SFEC :CLR FORTRAN FEC 
905734 005067 173114 cLR SFPC CLR F 
905740 005067 173076 CLR FPS :CLR FPU FPS 
005744 005067 173074 CLR FEC :CLR FPU FEC BUFFE 
005750 173072 cLR sa CLR FPC ER 
004767 364 ISR PC, RANDMY ;GET RANDOM INPU 
005760 004467 001264 JSR Ry’ SPOLSH :ENTER POLISH MODE 
005764 007 $P. 40 :PUSH 4 WORDS ON STACK (LONUM} 
005766 0072 $P_ 4B :PUSH 4 ON STACK (HINUM) 
005770 §SBD i ADDRESS OF FORTRAN SugT T 
905772 007352 STST :DETERMINE THE CONDITION CODES 
905774 007330 $POP4X -POP 4 WORDS AND EXIT POLISH MODE 
016700 173046 MOV SFP RO sDISPLAY FLOATING POINT STATUS 
ope ar8 170127 640200 LOFPS SeeeO0 ‘LOAD FPS, PATERCPT eG AND FD 
172467 172770 LOD ONUM, ACO “LOAD ACO’WITH A RANDOM NUMBER 
2 7? 172774 LOD HINUM, ACI :LOAD ACI 1 WITH H A RANDOM NUMBER 
172767 173010 LOD ACg “LOAD ACZ WITH THE SUM 
006022 1701e7 007640 LOFPS 8007640 : TURN INTERUPTS ON 
006034 004110 MOV #.+6, LAD ?RESET LOOP 
S SSSSSEREAEAALASSLELSSTALESSLASLREEALERAELASSSLLASLSAASAPSSSFLAFSASAELLES 
906934 172600 LOD aco, ace ; LOAD aco INTO AC2 
Q06036 173e01 RET16: SUBD ACI ace :SUBTRACT AC! BY AC2 
096040 005767 173004 TST SFPS : CHECK oF 98 FORTRAN Fes ERROR FLAG 
996044 10041e BMI ERRI6 :BRANCH IF ERROR F ET 
O06046 170267 172770 STFPS FPS :STORE FLOATING POINT Status 
0060Se 026767 172764 172770 CMP FPS SFPS :CHECK FPS 
906060 0014¢7 BEG TST le ;BRANCH IF OK 
O96062 174267 172724 STD ac2, ANS 38 VE Fu ANSWER 
596066 10400; HLT +1 RROR 
306079 ooo4es BF ENDIE EraP TO END 
o06072 170000 ERRIE: CFCC ;WAIT FOR FPU TO FINISH 
306574 Oeb7E7 172742 17E7HE CMP FPS, $FPS  :CHECK THE FLOATING POINT STATUS 


~06iG2 OQO14Se BES +6 BRANCH IF Ok 


we 


i1-DCFPS-D 

ll 

008104 194377 
006108 004 
506110 026767 
Beet 0014 

. 1 10437 
O06le2 004 
006124 026767 
208132 901402 
908134 104377 
506136 42 
lege 173702 
28 
OO6146 174267 
006152 sea5ee 
006160 005567 
006164 005567 
Boeiz4 173767 

158080 

006202 001420 
006204 162767 
00$212 005667 
006216 005657 
0062. 005667 
006226 173767 
06232 

006234 001403 
B06236 174267 
OSbe4e 104000 
CO&244 905067 
S0b25S 104400 


172730 


172716 


172734 


l7é7e2 


172616 


TSTIE: 


ENDIE: 


HL 7+377 
BR END16 
CMP FEC, SFEC 
BEO +6 
HL 14377 
BR ENDL 
CMP FPC, SFPC 
BEQ TSTlé 
HLT +377 

END16 
CMPD 60 soaC2, Ss 
CFCC 
5&6 END.t 
“COMPENSATE FOR FORTRAN 
$75 ace, ANS 
ADD #! ANS] +6 
ADC ANS 1+ 
ADC ANS1+2 
ADC ANS! 
CMPD 8=6soANS1, «= ACB 
CFCC 
BEQ ENDI6 
SUB 82 ANSi+E 
58 ANS 1+ 
Sec ANS1+2 
Sec ANS] 
CMPD «= CANS1, = ACD 
CFCC 
BEQ ENDLE 
ST aCe, ANS! 
HLT 
CLR FPS 
SCOPE 
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;FPS ERROR 

:SKIP TO END 

serene THE FLOATING EXCEPTIO 
H IF OK 


:FEC IS WRONG 
:SKIP TO END 


;CHECK FLOATING PC 
HIF 


WRONG SS IN FPC 


:SKIP TO 


N CODES 


:COMPARE FPU ANSWER TO FORTRAN ENSWES 
iecene eet ° CONDITION CODES 

{NA TES 
tN ME HEAT PEL ANSWER 


BRA H_ IF 
SBECREMENT FPU ANSWER 


;CHECK ANSWERS AGAIN 
; COPY te dy CONDITION CODES 


: BRANCH I 
s SAVE FPU ANSWER 
FPU AND FORTRAN DISAGREE 


un FPU FPS BUFFER 


er if,” DGRCISE LAF (SLMTRACT FLOATIQ) SS 
Oe ps Nog FLOATING) 


sTEST i 


TRUNCATE 


AND_UNDERFLOW INTERUPTS OFF. 
MODE 


SFRSSEAESEF ELSES SSS FFSASSLSSSSSESLELLELRRSESSLSSFSLSLFFSSLAPSLSSESLAFSFAFE SOG 
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DCF PSDP TEST SECTION 


76? OO4HHD 172579 MOV BOO444O , SFPS :$E7 N FORTRAN ANSWER 
BeeeeR Bkeces Pesce? fk OSE n FORTRAN FE 
006264 005067 i7e5e4 cLR SePC CUR Fey Fes Se 
Baessg BRexps ieseu6 KR OEP ‘eth EDU FER BUFFER 
SOPSeN Doate? boreTe SER pe’ soanome /6ET RANDOM. CINPUT DATA 
Besig O04 v4 p84826 1 RY! $FOLSH ‘PETER 
506318 007304 $P. 2B a ta N STACK (nthe CHINE 
Se ene age 3724 SeTERRT BND itt CSoES 
Spessa 007316 $POPOx DETER ing Ts EXIT B20 MODE 
006326 O16700 172516 MOV SFPS, RO :DISPLAY FLOATING POINT STATUS 
170127 649005 LOFPS §=.: s04 Hoo LOAD pps, IN TERUPT DISABLE 
172467 17244 LOF LONUM, ACO :LOAD ACO’WITH A RANDOM NUMBER 
006342 172567 172444 LDF HINUM, AC : LOAD aC} WITH § @ RANDOM NUMBER 
906346 iZe7ee 172460 LOF ANS2,' AC : LORD AC 
0063S2 170:e7 OO4440 COFPS § 8004440 : TURN INTERUPTS. ON, EXCEPT OVERFLOW GND UNCESELZL 
006356 012767 006364 903560 MOV 8.+6, LAD ‘RESET LOOP ADDRESS 
4 FSSESPESSSSSFSSSSSFSSLSSSSSSSESRESLESSSSLSESSSSSSSSSSRSESSSSESESS4SS444449444 
006364 17 OF aco, ac ; ACO INTO AC 
006365 i560 RETI7: Super ae ac a Re Rey BY Eco 
005370 170267 172646 STFPS 6 FPS :STORE FLOATING POINT STATUS 
006374 O26767 172442 172446 CMP FES $FPS = sCHECK FPS 
906402 001404 BF9 TSTi? :BRANCH IF OK 
OO6494 174267 172412 ST Ac2, ANS!  ;SAVE FPU ANSWER 
OCE410 104001 HLT +1 :FPS ERROR 
O06412 GOO436 BR END17 :SKIP COMPARE 
006414 032787 O00002 172426 ‘TST17: BIT 82 SFPS ss CHECK FOR OVERFLOW 
O06422 001032 BNE ENO17 :SRANCH IF OVERFLOW 
COb424 173702 CMPF 86 ACe2, 3=—s ACS :COMPARE FPU ANSWER TO FORTRAN ANSwES 
906426 170000 CFCC :COPY FLOATING CONDITION CODES 
. 006430 901427 BEG ENDi7 CHECK 
- EOMPENSATE FOR FORTRAN INACCURACIES. 
O06432 174267 172364 ite ACe, ANS] ;SAVE FPU ANSWER 
C0643 62767 0000: 172360 ADD 8] ANS1+2 t PNCREMENT FPU ANSWER 
Bee (er irene See Bel, co 
Speves | 58a8o CFCC ,' SOP sLoat ine CONBITION CODES 
O0E4SE 001414 BEG END17 
DCE4EO 162767 000002 172232 SUB 82 ANS1+2 ‘BECREMENT PP ANSWER 
O0E466 005667 172330 SBC ANS 1 
O06472 173767 172204 CMPF 8=sCANS!, «= ACB ;CHECK ANSWERS AGAIN 
O06476 179000 CFC ; COPY FLOATING CONDITION CODES 
056508 001402 BES ENGL? RANCH IF OK 
506502 174267 172214 STF Ace. ANS!  :SAVE FPU ANSWER 
306896 104000 HLT :FPU AND FORTRAN OISAGSEE 
DOES ONSOE7 172326 END1?: a FES -CLR FPU FPS BUFFER 
wees 108805 SU 
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: TEST 20: EXERCISE SUBD (SUBTRACT DOUBLE PRECISION) 
;TEST 20: EXERCISE S p 
isi Gi Brg UNOERFL DR INVERCE YS OFF 
een... 5... SA eeeree 
012767 OO4s4O 172324 MOV 8004640, SFPS :SET JE BITS IN FORTRAN ANSUER 
005067 172322 CLR SFEC :CLR FORTRAN FEC 
? ize €LR FRC :6LR FORTRAN F 
? 17 ELR P :CLR FPU FPS BUFFER 
005087 172300 CLR FEC -CLR FPU FEC BUFFER 
? re 76 ELR FP ;CLR F FER 
? 001570 ISR PC, RANDOM INPUT DATA 
? 900479 cp pu $POLSH ENTER POLISH MODE 
007, $P.4A : 4 ON STACK (LONUM) 
0072 $P.48 14 ON STACK (HINUM) 
0900006 $SBD :ADDRESS OF FORTRAN SUBTRACT 
007352 $TST ‘DETERMINE THE CONDITION CODES 
007330 $POP4X :POP 4 WORDS AND EXIT POLISH MODE 
016700 172252 MOV SFPS. RO : DISPLAY FLOATING POINT STATUS 
170127 o4de00 LOFPS #049200 LOAD FPS, INT ERUPT DISABLE AND FD 
172467 172174 LOD LONUM, ACO ‘TOAD ACO WITH RANDOM NUMBER 
172200 LOD HINUM, ACL :LOAD ACI WITH q RANDOM NUMBER 
172767 172c14 LO Se,’ aca “LOAD AC3 WITH THE SUM 
170127 OO4s4O LOFPS § 8004640 : TURN INTERUPTS ON. EXCEPT OVER AND UNDESFL ZW 
012767 906630 203314 MOY #.+6, LAD *RESET LOOP ADDRESS 
. SFSFSSLEFSLERASSRELSSSASLSESSSLSESSALERS A TERRSAESRARESSSESESESS 4444494544444 
172690 LOD aco, ace : LOAD aco INTO AC2 
173201 . RET20: SUBD AC], Ace TRACT ACL BY AC2 
170267 172202 , STFPS FPS : STORE FLOATING POINT STATUS 
026767 172176 172202 CMP FPS SFPS ; CHECK FPS 
001404 BEQ TST2O H IF OK 
174267 172146 STD Ac2, ANS} : SAVE FPL ANSWER 
194001 HL T+ FPS ERROR 
OOOS4e BR END20 ‘SKIP COMPARE 
932767 oOO0002 i72lbe ‘ST20: BIT #2 $FPS  ; CHECK FOR OVERFLOW 
p0 1042 BNE END20 :BRANCH IF OVERFLOW 
173792 CMPD )6OsoaC2,Sti‘iéC COMPARE FPL BNSHER TO FORTRAN ANSKE® 
170008 CFC : COPY FLOATING CONDITION CODES 
001437 BEG END20 ANSWER’ 
“COMPENSATE FOR FORTRAN InACCURACTES.” 
174267 172120 eTD Ace, ANS :SAVE FPU ANSWER 
M2767 000001 172120 ADO #1 ANSi+6 ; INCREMENT et ANSWER 
005567 172112 ROC = ANS 1+4 
005567 172104 ape ANS 1+2 
005567 17207¢ abc ANS ! 
173767 172072 CMPD ANSI, AC3 :CHECK ANSWERS AGAIN 
179000 cFce :COPY FLOATING CONDITION CODES 
001420 ee BEQ END20 : BRAN CH IF Ok 
lge7é7 COON0e 1720be Sup #2 ANSI+6 :DECREMENT FPU ANSWER 
605667 {72066 5e¢ ANS 144 
OSE? 172052 Sec NS 1+2 


MS2NDEC= if -DOFPS-D FLQOTING POINT ADD AND SUBTRACT EXERCISER MACYL1 27(732) 17-SEP-76 09:31 PAGE 32 
DOF ESTE TEST SECTION 

CerS2 OOS&E7? 172044 sec ANS! 

0067’ 173767 672040 CMPD ANS1, Aac3 if CK ANSWERS AGAIN 

0067 ré Foc 4 Y ante g ure CON TTION COoES 

20674 14 EG END20 

SOb7SE 174267 172030 ST AC2, ANS1 SAVE ANSWER 

206772 104000 T sFPY AND” FORTRAN DISAGREE 

ae I250E7 i72042 ENDeC: CLR FES - FPL FPS BUSTER 


MAINDEC -11-DCFPS-0 
DCFPSD. PI 


SE7E4E 


O16716 
908580e¢ 


FLOATING POINT ADD_AND SUBTRACT EXERCISER 


BELL AND SCOPE ROUTINE 


002000 


900207 
012140 


010000 
003100 


009020 
007102 


007084 
o0o04e 


000200 


900490 
177570 
177570 
040000 


177570 
003128 


177570 


177570 


177570 


DONE : 


1$: 


YESRT: 
EMT: 


es: 
SAVLAD: 


KIT: 
OVER: 


#SW10,d8SWR 
@BELL,. TYPE 
. TYPE 

-(§) 
eSWl2,8SWR 
23 

TRPBS 

2s 

#20, (6) 

#35, -(6) 
84S, -(6) 
as#2,80 

3$ 

7,(0) 

as200 


sGuO8, DUS 
asSWR,ICNT - 
OVER 
asSWwR,R3 
sSuI4, aasSwr 
e541 asSwk 
SAVLAL 
fone 
tre ICNT+! 
#1, ICNT+1 
ICANT 


(6),.L 
Tent. SO IsPLay 


ICNT+} 
ok JeDISPLAY 


SALAD 
LAD, 6&) 


'60 7 "0 


MACYI1 27(732) 


+! THE BELL’ 
TYPE A BELL 


17-SEP-76 09:31 


;CLEAR TRACE TRAP 


;RUN WITH TRT? 


iSET TRACE TROP 


;JUMP TO START OF TEST 


;JUMP TO START OF TEST 


:GET MONITOR ADDRESS 


MONITOR 


3 JUMP _TO START 0 


r TEST 


RETURN TO PROGRAM FROM TRAP 


;KILL LDUB OR LOOP ON SPEC. 
;ON RIGHT TEST” 
;GET UB BITS 
;LOOP ON TEST 
3KILL ITERATIONS 


; BRANCH IF FIRST 
ae. 


;BRANCH_IF 
sEIRST ITERATION 


U 
; SAVE LOO 


: ES 
BY SPLAY TEST NO. 
: RETURN 


:SET UP DISPLAY 
:FIRST ONE” 


#SW7-0 


AND ITERATION eke 


ow —__—~ 


;FUDGE RETURN ADDRESS 
sFIXES PS 


PAGE 22 


MRBIND 
DcFesS 


RR e + Maa FPS-> 


007322 
007326 


000134 


Poe ING Pot NT_ADD iy eg ed EXERCISER 


ORTRAN Rout INES (POL 


171532 


171506 


oocoo4 
077600 


030000 
o00002 
171416 
000054 
000006 
ococic 
171314 


007514 
171344 


171470 


171450 
171374 


171432 


171372 


171356 


SPOLSH: JMP 
SP.4A: MOV 
$P.2A: MOV 


$P.48: MOV 
$P.28: MOV 


$POP2X: MOV 


SPOPYX: MOV 


S’ST: BIT 


$TST1: TST 


$TST2: JMP 
$TER: MOVE 


$TOV: CMP 


$TOV1: TST 


H MODE) 


a(R4)+ 


LONUM+6, - 
LONUM+4 | - 


% eine 


HINUM+6, -(SP) 

HINUM+4, -( SP) 

HINUM+2,-(SP) 
HINUM, <-(SP?) 

a(R4)+ 

(SP)+, ANS2 


#190002, SFPS 
STER 

STOV 
8077600, (6) 
STST1 

804 SFPS 
#077600, LONUM 
3030000, $FPS 


ve w 


—-O 
z 
= 
xz 
-~ 


RETAD( 1), SFPC 
34, {SPi4 


BA- DDD OFAN-T CMM 
TNT 


zw — 
SS tale ae 
—~<W 
++- 

+ 


w- 
+ 


ANSe+2 


ANS2 
P)+, ANSe+2 
ANS2+4 
P)+, ANSe+s 
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;EXIT POLISH MODE 


;EXIT POLISH MODE 
; CHECK ro pron FLAG AND OVERFLOW 


BIT 
: CHECK OPERAND FOR ZERO EXPONENT 


: BRANCH IF 

K FOR INTERUPTS ENABLED 
BRANCH IF NOT SET 
CLEAR THE ANSWER 


;CHECK FOR DOUBLE PRECISIO! 
;BRANCH IF NOT 


;FINO THE SIGN 
; BRANCH IF PLUS 
;SET N Bit 


;GET TEST NUMBER 
;SET_ POINTER 


: 8 
5 OORe FORTRAN FPC 
“POP” 2 Wonds 
LHECK FD BIT 
: BRRNCH IF FLOATING MODE 
“POP” 2 MORE WORDS 
‘SKIP “POPX” ROUTINE 
EXIT POLISH MODE 


eee oe oe eee wee 


MAINOEC-11-DCFPS-0 


DCFPSO.P11 


007514 


007674 


er 78 


907722 


000205 
062716 


FLOATING POINT ADD AND SUBTRACT EXERCISER 
FORTRAN ROUTINES (POLISH MODE) 


oo0ode 
oc000e 
000002 
ooc0de 


003009 
177416 


003000 
1773¢2 


og002 


940009 


901005 
000405 
001093 
000403 


171224 


171170 


RETAD: 


SERR: 


SUNKER: 
SUNDRO: 


-ERRI: 


SUNDR1: 


.ERRE: 


$ 
$POP2X 
B 


efey 
$POP4X 


SUNDRA: 81S 


$200A0: 


MOV 
RTS 


ADD 


#1005 
8040S 
#1003 
#0403 


2(5) 
SUNDRO 
2e(s) 
UNOR1 
2(S) 
SOVERO 
2(5) 
SOVERI 
#003000, SFPS 
SERTS 
RY, $POLSH 


SUNDRA 
#003000, $F PS 
SERTS 

RY, $POLSH 


#100000, $FPS 
le, $FEC 


#040000, (SP) 
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;CHECK FOR UNDERFLOW, FO=0 
BRANCH _IF UNDERFLOW 
CHECK FOR UNDERFLOW, FD=1 


;BRANCH IF 0 
; UNKNOWN ERR 


fo FOR INTERUPTS ON OR OFF 
BRANCH IF OFF 


;ENTER POLISH MODE 

;PUSH 2 WORDS ON athe ier 
;PUSH_2@ WORDS ON STACK (HINUM) 

;ADD 200 TO THE EXPONENTS 

fnew, OF FORTRAN ADD OR SUBTRACT 


; THIS ADOR 
; SUBTRACT 200 FROM THE EXPONENT OF ANS 

; DETERMINE CONDITION CODES 

;POP 2 WORDS AND EXIT POLISH MODE 


ee “iF pOTeRPTs ON OR OFF 


poet ON STACK (LONUM) 
S ON STACK (HINUM) 


‘ADB 60 oO Q THE EXPONENTS 

ADDRESS OF FORTRAN ADD OR SUBTRACT 

: THIS ADDRESS IS MODIFIED BY THe oe 
;SUBTRACT 200 FROM THE EXPONENT OF ANS 

; = ON CODES 


;POP 4 ORDS AND EXIT POLISH MODE 


SET Fre ERROR EXCEPTION CODE 
‘RETURN TO FORTRAN ROUTINE 


aati 


' MAINDEC-11-DCFPS-D FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE 36 
DCFPSD.P11 FORTRAN ROUTINES (POLISH MODE) 


007726 O62766 O40000 oD00004 ADD #040000, 4(SP) 
007734 000134 JMP a(R4)4 
007736 062716 o40000 $200A1: ADD #040000, (SP) 
057742 O6e766 O40000 o00010 ADD #040000; 10(SP) 
000134 IMP a(R4)+ 

77 71 O0 $200S8: #040000, (SP) 
ppc eRe Asset iuate 170012 ay Ho Be :TEST FOR C OR V BITS 
907764 O01402 BEQ $2018 
007766 Ob62e716 100090 ADD #100000, (SP) 
907772 000134 $201SB: JMP a(R4)+ 
007774 OO4467 177250 SOVERO: JSR R4, $POLSH sENTER POLISH MODE 
019000 007262 $P.2A ;PUSH 2 WORDS ON STACK (LONI) 
01090e 007304 $P.2 *PUSH 2 WORDS ON STACK (HINUM) 
019004 910104 $200S0 ;SUBTRACT 200 FROM THE EXPONENTS 
010006 010142 .ERR3: .ERR sADDRESS OF FORTRAN ADD OR SUBTRACT 

THIS RODRESS IS MODIFIED BY THE PROGRAM 
010010 010:34 $200AD ?ADD 200 10 THE EXPONENT OF ANS 
010012 007352 $TST ; DETERMINE CONDITION CODES 
010014 007316 $POP2X :POP 2 WORDS AND EXIT POLISH MODE 
010016 O00411 BR SOVERA 
010020 OO4467 177224 SOVER1: JSR RY, SPOLSH ;ENTER POLISH MODE 
010024 007252 $P.4A :PUSH 2 WORDS ON STACK (LONUM) 
sass ot a ceteect 205 Phone rote 
010032 pigteg .ERRY: sent ‘RDORESS oF Port Ran Bo OR SUBTRACT 
ne THIS ADORESS IS MODIFIED BY THE PROGRAM 

010034 010134 $20GAD *ADD 200 TO THE EXPONENT OF ANS 
010036 007352 Sis : DETERMINE CONDITION CODES 
010040 007330 $POPYX -POP 4 WORDS AND EXIT POLISH MODE 
010042 032767 OG3000 171000 SOVERA: BIT #003000,SFPS § :CHECK FOR INTERUPTS ON OR OFF 
010050 001406 BEQ SOVRI ; BRANCH F OFF 
010052 052767 100000 170770 BIS #100000, $FPS PS ERROR FLAG 
010060 012767 O00010 170764 MOV #10, $FEC iE OVERFLOW EXCEPTION CODE 
010066 052767 O00002 170754 SOVR1: BIS #02; SFPS ;SET OVERFLOW BIT IN FPS 
010074 052767 OO0004 170746 SERTS: BIS #04; $FPS :SET THE Z BIT IN FPS 
010102 o00205 RTS 4S 
010104 162716 oO40C90 $200S0: SUB #040000, (SP) 
010110 162766 O40000 ocoD004 SUB #040000, 4(SP) 
010116 000134 IMP a(R4 
010120 162716 oO40000 $200S1: SUB #040000, (SP) 
010124 162766 oO40000 ocopo10 SUB #040000, 10(<SP) 
010132 o00134 JMP a(R 
010134 062716 140000 $200AD: ADD #140000, (SP) 
610140 000134 IMP a(R4)+ 
910142 opco000 .ERR: HALT ;PROGRAM DID NOT START AT 200 
010144 000137 ocod200 JMP 28200 


§ FEELEELELELELEREL ELLE LEE SEL EERE RE REL ELEELRLERAREL AE RLEALASERLARLAAARE 


a 


G hee 


194377 
000002 


FLOATING P 


OINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 C9:31 PAGE 37 
FORTRAN ROUTI MODE ) 


T 
NES (POLISH MO 


;FPP INTERUPT SERVICE ROUTINE 
3 SESE SE EEE HE SESE EE JE EAE SEER EE EEE HEE EEE EEE EEE EE 


1FBee8 reERe: Byer” FEC ISTOne FLOntiNe ExceeTTON Coos 


o49000 170662 grr #40000, SFPS  : CHECK INTERUPT DISABL 
BES 377 F SPR AF Nor T SUPPOSED TO BE ENABLED 
®R ERRTI 
170650 TST $FPS ; CHECK FORTRAN _FPS_FOR ERROR FLAG 
BMI ERRTI ‘BRANCH IF FLAG SET 
HL 14377 FLOATING POINT STATUS ERROR 
ERRTI: RTI 


Oe | Se eS 2S ne o 


Saline 


MAINDEC-11-DCFPS-D FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE 38 
DCFPSO.P11 RANDOM NUMBER GENERATORS 


010206 01004 RANDM2: MOV %0,-(6) ;SAVE RO 
sie Gleke my HM 

102149 Sue v %3,-(6) i eOVE AS 

010216 O10446 MOV %4" =(6) SAVE RY 

010220 010546 MOV 4S, -(6) “SAVE RS 

010222 012704 001002 MOV #LONUM, %4 :SET UP LONUM POINTER 
010226 012705 O0101e MOV #HINUM, %S :SET UP HINUM POINTER 
010232 611406 MOV (4), %0 :SET RO WITH LOW 

010234 O11501 MOV (S)’x1 :SET R1 WITH HIGH 

019236 012703 177771 REPET2: MOV 8-7,%3 :SET SHIFT COUNT 

010e42 905002 LR %2 

010244 006300 SHIFT2: ASL 0 SHIFT RQ SLEPT AND 
010% 006101 ROL x1 : ROTATE Y INTO R1 AND 
010250 006102 ROL %2 ‘ROTATE CARRY INTO Re 
010252 93 NC 43 : CHE DONE 

010254 001 NE SHIFT2 :CONTINUE SHIFT LOOP 
010256 061402 ADD (4), %2 : R TO MAKE X 129 
010260 o0Ss01 ADC %1 :PROPOGATE CARRY 

010262 061501 ADD (5),%1 “ADD NUMBER TO MAKE X 129 
010264 0055: ADC %2 :PROPOGATE CARRY 

010266 eat 001057 ADD #1057, %0 :ADD LOW CONSTANT 

010272 o0sso1 ADC %1 :PROPOGATE CARRY 

010274 o0sso2 ADC “2 :PROPOGATE CARRY 

010276 062701 047401 ADD #47401, %1 *ADO HIGH CONSTANT 
010302 90sso2 ADC %2 ;PROPOGATE CARRY 

010304 O62702 o00006 ADD #6, %2 HIGHEST CONSTART 
010310 o&0200 ADD %2, 40 *REPRIME RO WITH HIGHEST DIGIT 
010312 oossol ADC %1 :PROPOGATE CARRY 

010314 Ol MOV “0, (4)+ : SAVE 

010316 010125 MOV %1,(5)+ :SAVE RI 

010320 O20427 001006 CMP %4° #LONUM+4 :CHECK FOR DONE ENOUGH 
010324 001344 BNE REPET2 “BRANCH IF NOT DONE 
010326 012605 MOV (6)+,%5 ; RESTORE RS 

010330 01 MOV (6)+,%4 "RESTORE RY 

010332 012603 MOV (6)+/%3 ?RESTORE R3 

010334 Ole602 MOY (6)+)%2 RESTORE Re 

010336 012601 MOV (B)+/%1 RESTORE RI 

010340 012600 MOV (6)+2%0 RESTORE RO 

019342 000207 RTS “? : RETURN 





+ ee + tee ee ee 


ee + as 


| 


RRA Re 
e9200990000 

fT 

Braye) 


zt 


Beis 


pieced seiehetataiata 
6 
GRE 


SENSPRSS EHO EMS LNG 


P= 


OOD OO OOOO OOOO VOODOO OOOO ODOOVOO00O0O0 000 
SLVP2 PL IS 


i 0 b= b= b— b— = bb 2b 0 bb 0 8 bb 9 9-2 bs bb 9b pp pe 


2999 
anne 


mr nm nn ee es +e ~~ 


FLOATING POINT ADD AND SUBTRACT EXERCISER 
RANDOM NUMBER GENERATORS 


RANDM4: MOV “0, -(6) 


M %1,=(6) 
MOV %2) =(6) 
MOV %3,-(6) 
Moyet =tB) 
001002 MOV aL ONUM, %4 
001012 MOV #HINUM, “5 
MOV (4), “0 
MOV (S))%1 
177771 REFETY: MOV 8-743 
CLR %2 
SHIFT4: ASL %0 
ROL %1 
ROL te 
INC “3 
BNE SHIFTY 
ADD (4) ,% 
ADC “1 
AOD (5) ,%1 
ADC v2 
001057 ADD #1057, %0 
ADC “1 
ADC %2 
047401 ADD #47401, %1 
ADC %2 
000006 ADD #6, 42 
ADD %2,%0 
ADC “1 
MOV %0, (4)+ 
MOV %1'(5)+ 
01012 CMP %4" aL ONUM+ 10 
BNE REPETY 
MOV (6)+,%5 
MOV (6)+,%4 
MOV (6)+'%3 
MOV (6)+,%2 
MOV (B)+)%1 
MOV (6)+;%0 
RTS “7 
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Seve RO 
VE Ry 
AVE R 
a 
: SET UP LONUM POINTER 
:SET UP oe POINTER 
: SET RO wT LOW 


SET R1 WITH HIGH 
:SET SHIFT "COUNT 


; SHIFT RO LEFT AND 
ROTATE CARRY INTO R1 AND 
ROTATE CARRY INTO Re 
;CHECK FOR DONE 
; CONTINUE RUMEER TO. LOOP 

O MAKE X 129 


s Y 

;ADD HIGHEST CONSTART 

:REPRIME RO wae HIGHEST DIGIT 
oa E CAR 


:SAVE RI 
;CHECK FOR DONE ENOUGH 
3 en ET DONE 


RESTORE RG 











13-DOFPS-) FLOATING POINT TRACT EXERCISER MACYi1 27(7 7-SEP-7— 09:31 SAGE 40 
“y ene NT anoe m0 oe EXERCISE i} 32) 17-SE 31 PAGE 





Pll HLT ROU 
51 "67 002000 167060 .TRP: T 00, SWR 
ate th st 001420 bs Ai TYPE TYPE @ BELL 
,o é eet : 
3; Bede 12140 TYPE, ae 
510524 005267 OCl4le LET: INC ERR : COUNT TH NUMBER OF ERRORS 
319530 B3e767 020000 167032 git . SWR :SKIP TYPEOUT IF SET 
3! 1116 
512540 74C67 a ACe, ANSL  ;SAVE THE ANSWER, TO BE SURE 
5ideed TYPE’ RE 
Q} 011646 MOV” (8) -(6) :PUT ADDRESS OF INSTRUCTION ON STace 
Sl 1 1g Sug te) 
i 01 ae NOV teste TYPE (6)¢ IN OCTAL 
piper piss TSR <P PRINTR 'TYPE LEADING ZERO'S 
010576 TYPE,  SPACE+3 
O1 012703 MOV SLONUM, %3 ;SET UP POINTER 
010606 004767 JSR ? STYPE :TYPE A FLOATING POINT NUMBER 
10612 go0004 TYPE,  $SIGN 
10616 ? JSR 2, STYPE  ;TYPE A FLOATING POINT NUMBER 
if Bos 7 Tere” 4 STYPE ;TYPE A FLOATING POINT NUMBER 
Bidese Boge TYPE,  SPACE+2 ali 
Sibeas baa7e? MeO PRINTR + YPE LEROING SERD'S 
pe 105767 757aB WORDS : CHECK ER a¢ 68 ERROR 
010652 100014 BPL STAT “BRANCH IF NOT 
010654 TYPE, SPACE +e 
010660 O16 MOV EC. TTY -TYPE FEC IN OCTAL 
010664 00476 JSR %7 PRINTR : TYPE LEADING ZERO’S 
010670 OO0004 TYPE, SPACE+2 
010674 01670S MOV FPC TTY : TYPE FPC IN OCTAL 
010700 004767 JSR 47. PRINTR : TYPE LEADING ZERO'S 
019704 O00004 .STAT: TYPE, FORTAN 
010710 004767 JSR ? STYPE :TYPE A FLOATING POINT NUMBER 
916714 105767 NOHEAD: TSTB WORDS 
010720 001425 BEG NHE AD 
010722 ocooo4 TYPE,  SPACE+ 
D10726 916708 MOV SFPS. TTY :TYPE SFPS IN OCTSL 
010732 76 JSR 47 PRINTR : TYPE LEADING ZERO'S 
610736 105767 TSTB © WORDS 
019742 190014 BPL NHE 
010744 00004 TYPE,  SPACE+2 
916750 016708 MOV SFEC, TTY :TYPE SFEC IN OCTAL 
610754 7 ISR 47 PRINTR : TYPE LEADING ZERO’S 
010769 TYPE, SPACE+2 
510764 016705 MOY SFPC TTY sTYPE SFPC IN OCTAL 
O01 004767 ISR %? PRINTR :TYPE LEADING ZERO'S 
510774 005737 NHEAD: TST aeswe 
911000 190001 BPL +4 
6:100e ococcd HALT 
eisc04 90o0Ce RTT 
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OCFPSO.Pil FLORTING POINT TYPEOU OUTINE 


011006 032767 OO1000 166554 $TYPE: BIT #1000, SwWR sCHECK TTY FORMAT 

11014 ? BNE TYPE! 

1} ; 7? 170026 STs $F 

1! BMI YPED 

011024 004767 900076 ISR ? TYPEF 

011030 O22323 TYPEA: CME (3)¢, (3)¢ UP DATE THE TYPEOUT POINTER 

0:1032 000207 RTS ? 

931034 TYPET: 

C11034 012305 MOV (3)4, TTY sTYPE (3)¢ IN OCTAL 

511036 904787 pogace ISR %? PRINTR : TYPE LEADING ZERO'S 

911042 900004 O1e040 TYPE, SPACE+4 

tides Dosse? ope Mee oS PRINTR TYPE LEAGING sénc's 
; % . L NG ZERO’ 

Bt ipes Theres 16 S55 TSTB 3s SFPS 

911060 100363 BPL TYPEA 

011062 O00004 012040 TYPE,  SPACE+4 

BIDS DONE Meee BAINTR TYPE LEADING SERC's 

. ; 4 

fetes op0004 Sead TYPE, SPACE+4 

011190 012305 MOV (3)4. TTY sTYPE (3)4 IN OCTAL 

C1:102 OO4767 000236 JSR %7 ,PRINTR : TYPE LEADING ZERO’S 

011106 900207 RTS ? 

CLi110 o12346 TYPED: MOV (34, (6) :GET WORD 1 

Ollile O12346 “OV (3)4+,-(6) :GET WORD 2 

O11114 Ole346 MOV (3)4' -(6) :GET WORD 3 

Ol1116 Ole346 MOV (3)4" =(6) :GET WORD 4 

911120 Ole746 so00z2 MOV #:8.°-(6) :CHAR COUNT 

O1i1e4 oO0406 BR TYPE! 

Ollles o12e346 TYPEF: MOV (2)4,-(6) -GET WORD ! 

011130 012346 MOV (3)4,-(6) :GET WORD 2 

011132 ooso46 CLR -(6) :CLEAR WORD 3 

C11134 OOSO46 CLR -(6) 

011136 bie 10 MOV #8. ,-(6) : CHAR COUN? 

011142 76 104 TYPEL: JSR 7,771 : TYPE 1 BIT 

O11146 105766 000011 TST 9! (6) : CHECK EXPONENT 

011152 901001 BNE +4 :BRANCH ON NON-ZERO EXPONENT 

911154 o0S116 COM ) *FLAG ZERO EXPONENT 

011156 012040 TYPE, SPACE+4 

011162 004767 000072 ISR . : TYPE 2 BITS 

911166 004767 000074 JSR ?’TY3 :TYPE 3 BITS 

011172 604767 990070 SR :TYPE 3 BITS 

011176 012049 TYPE,  SPACE+4 

O1i202 004767 o000e0 ISR f :TYPE 2 BITS 

011206 004767 cOo0s4 TyPE2: ISR ?'TY3 :TYPE 3 8175 

Oligle oOs216 DEC : DONE? 

51214 O01 8 TYPE2 

Cilel& Oeebet CMP (6)+, (6+ ; RESTORE 

011220 Dezeee CMp (6)4! (634 : THE 

Sileze O0S726 TST (6.4 : STACK 

silees O00257 pF ? 


a" Sa 
ncfess 


ONNYIYVOOVOWVOOOVDOVOOOI00A0 


poree 


furu 
te 


eo 


ny ia 
8 


3 


. +0 -+0-+ - &-< B-< B-< B= 9-« 9 p= 9 = b= 6 P= BP 0 fo he fo 
Gd 

ys 

fmm 

& 


> + 0-+6- b-- b-< b-< bb & 2 B= &-< & 2 b-< &-= & + b+ Fo Po hh Bo he 


~ 


R 
RS, 


oe 


SRN aa ate a 
Stalstatatateatess 
5 


Cee 


- 


fu 
9 
4 


338 
Nate 


FLORTING POINT ADD AND SUBTRACT EXERCISER 
FLOATING POINT TYPEOUT SUBROUTINE 


ooooce TYH#: TST (6) 
) es 
-(6) 
aera nov tes, fee 
oocoag2 Ty2: COM 2(6) 
0060001 TYl: SV $i,-(6) 
‘al i 
TYe: V g2,-(6) 
ooo0n2 rYe is! ue 
TY3: MOV 82,-(6) 
000842 TY: CLR TYPE 
500018 ann as 
Spoor Bor 16. (6) 
0006 16 ROLL TYPE 
DEC (6) 
fa) SNE hb, Tyee 
903 us Is s* . fs — 
Bieisg Tyee. rite 
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SG 2 Bea 
Bie HB 


GET RID OF ZERC EXPONENT FLAG 
; TYPE 1 BIT 


; TYPE € BITS 
:TYPE 3 BITS 
;SHIFT WORD 


wu 

x 

- 

nn 

—4 
EE 
30 

hd 


PAGE 42 


MASNOEC=3 1-DOFPS-0 ota te oO Y". AND SUBTRACT EXERCISER MACYi1 27(732) 17-SEP-76 09:31 PAGE 43 
OCFPSD.P1l CTAL DUMP OF A WORD 


gi ize4 hig? 7 00000: 000130 PRINTR: Nove #1, .PR -SET ZERO FILL SWITCH 
51369 005067 122 PRINTS aR - EADING ZERO'S 
11360 it 767 opgiee 900115 HOVE 8-6, .PR+! Ser caunt 
1] ah V RY *i6) 
911270 704 011472 MOV #3$,.R4 :SET POINTER TO FIRST ASCII CHAR. 
011374 105014 CLRB (4) CLEAR Hipor T 
511376 oS 8 2s OTATE T BY 
5: 5495 iOs018 18: CLRB (4) : CLEAR VTE OF 7 GHBRAC TEP 
511402 165 ROL TTY {ROTATE of C 
511404 106114 ROLE 3s <4) K 
611406 006105 ROL TTy ROTATE BIT INTO C 
011410 106114 ROLB 3s (4) K 
511412 O0610s 23: ROL TTy :ROTATE BIT INTO < 
511414 106114 ROLB (4) “PACK IT 
611416 105714 TSTS) (#4) 
911420 001402 BEG +6 : 
011422 105267 oonns4 INCS sc PR 
011426 195767 900050 TSTB PR sCHECK FILL SWITCH 
011432 0014 BEQ “46 
911434 152724 ooo060 BISB a0, (4+ sMAKE INTO ASCII CHAR 
011440 105267 009037 7NCB PRS} 
Gii444 001355 ‘ ENE is REPEAT 
5il446 O22704 011472 OMP 833,24 
O114s2 0901002 SNE 46 
011454 112724 oco0060 MOVE sw, (44 
6114680 195014 CLRB (4) 
511462 o11472 TYPE =, 38 :TYPE IT 
CLI48& 012604 MOV '6)4,R4 sRESTORE R4 
511470 000297 RTS pC 
011472 o90904 33: ‘BLKw 4 
Silsce 990000 % PR: 86 
011504 005267 000426 ERROR: INC ERRORS sCOUNT ERRORS 
511519 132737 00000! coco SI7B Ss #1, a841 ;AUTO MODE” 
611516 O0l4i2e BEG :NO! 
611520 022767 cooolo opc4eo CMP 810, ERRORS ; 700 MANY? 
011526 OO1006 BNE } “NOT YET 
511530 013700 oopo4e MOY d842,R0 :GET ADDRESS 
511534 001493 a BES 1S _ ;FORGET I? IF ze 
S:153¢ 905037 ooco4e éLR aa42 42 
Fiis42 904710 tse pc, (0) CALL THE MONITOR 
Ciis44s Ooco207 18: RTS C :BETUR 


SR 8 4 


BERS 


roww 
Sor 
OcmMo 


TREREMERESR POS 


ao 
o 


TrOmommd 


-+ © -- b= & « b-< b= =< b= 6 — b+ bs & = &--2 &—* B= bo 2 b= B= b= & -< bP + b+ 6 6 -< b= b+ b= B-< 6 = b+ B+ § = b= & © 0-2 He Bs Ho he 
FInd 
foam 3 


1d OQOMOOOOVOOVOVOVIOVOOOVOVOVVOOONIIND OKOVVIOVOVOVOVVOVIOVOVOOOOV00OHO 


> 2b p< p= & <= po pe 


ooos00 


ar, F555 


——— 


000266 
0i1636 900300 


wi a — oer 
Ging SOAR Ow yy RE 


STFPS 

£10 

ACO, ~(6) 
T ACI; (6) 
STO ACe,-(6) 
STD AC3,-(6) 
LOO ACY, ACO 


MOV RO, -(6) 
MOV R1,-(6) 
MOV Re, -(6) 
MOV R3 i= ¢ ) 
MOV R4Y,-(6) 
MOV RS. -(6) 
MOV SP SAVE 
MOV BPOWUP, UPVEC 
HALT 

POWUP: MOV SAVES, SP 
CLR Fl 

1g INC R} 
SNE 1$ 
MOV (634, R5 
MOV (6)+.R4 
MOV (6)+°R3 
MOV (6)+,Re 
MOV (6)+,R1 
MOV (6)+,R0 
SETD 
LOO (6)+.acea 
STD aco, Acs 
LOD (6)4+. ACO 
STD Aco.Ac4 
LOD (6)+,AC3 
LOD (6)+,AC2 
LOD (6)+,AC! 
09 (6)+, ACG 
LOFPS (bie 


MACYI1 27(732) 17-SEP-76 09:31 
‘pet 4% FAST UP 


GET THE FPS 
:SAVE AC'S 


;SAVE REGISTERS 


ave SP 
‘3 t VECTOR 

;GET ron 

sWAIT LOOP FOR THE TTY 


;GET THE REGISTERS 


£ FPS 


; RESTOR 
MOV BPOWDWN , JOWNVEC SET UP THE POWER DOWN VECTOR 


MOV or? , DOWNVEC +2 


;-ASCIZ «15><12e>"POWER™ 


:THE POWER UP SEQUENCE WAS _ gil 
; BEFORE OWER 5 IOMPL 


THE P , DOWN ans 


ya) ts Ps L1-DCFPS-0 FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE 45 
DeFPSD PII TYPE ROUTINE AND DATA AREA 


11246 1054 .I0T: = MOV TTY 5‘ :SAVE T 
117 1 ooog02 MOV 32:6) Y : GET ADDRESS TO BE TYPED 
011754 105715 1$: TSTB : TERMINATOR 
011756 00 406 Q 25 
gil ll 999134 MOVB =: (TTY) +, aTPB ;LORD AND TYPE THE CHARACTER 

11764 1 TST8 so TPS ts THE PRINTER READY 
011770 100375 BPL “4 
Boog Sh oeue 2s: mov AacB), -(8) BET ALBRESS TOBE TYPED 
Bidood Beste Secggs ooooos 0 ae a8). oe: e Ye tie Robes 
912006 O22666 O0000Ge CMP (654, 2(6) 
012012 001006 fi BNE tp 
912014 062705 oo0002 ADD 82, TTY :ADD 2 TO THE ADDRESS 
012020 705 900001 BI ai TTY :BACK UP TO AN EVEN BYTE 
912004 O1 oo0gde MOV TTY, 216) ; RESTORE ADDRESS 
012030 012605 3$ MOV (6)+, TTY “RESTORE TTY 
012032 RTI : RETURN 
012034 005015 O20040 O0D040 SPACE: .ASCIZ «<15<12" ” 
O12e042 ocs015 ooo RET: AASCIZ § <15><12> 
012045 040 020077 000 $SIGN: .ASCIZ ” ? 
012051 053 $PLUS: .ASCII “+” 
012052 oss SMINUS: .ASCII “-" 
012053 O15 O20012 O43040 FORTAN: .ASCIZ <15><12>" FORTRAN: ” 
012060 051117 051124 O47101 
012066 020072 900040 
012072 O36440 005015 O20040 FPUAN: .ASCIZ “ ="«15)<l2" FRU: - 
012100 OSO106 035125 920040 
012106 de 920040 000 

012114 EVEN 

012114 o00c0c SAVEG: 0 
012116 177564 TPS: 177564 : TELEPRINTER STATUS REGISTER 
Ol212e0 177566 TPB: 177586 : TELEPRINTER DATA BUFFER 
Olelee 172160 FPTADR: 172160 ‘FLOATING POI DRESS ON THE 11-20 
012124 44 O00246 FPVECT: 244 246 :FLORTING POINT VECTOR ADDRESS 
912130 oo0002 DWNVEC: 24,26 OWER DOWN VECTOR ADDRESS 
012134 900024 o00026 UPVEC: 24.26 :POWER UP VECTOR ADDRESS 
012140 900000 -TYPE: 9 

512142 00 TRPB: 0 

C12144 900000 LAD: 0 ;LOOP ADDRESS 

O12146 090000 ERRORS: 9 ; ERR OR COUNT 

12150 000 WORDS: Q ; CONTAINS TYPEOQUT INFO 
SieiSe 900377 TIMES: 377 ‘ITERATION COUNT 
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DrfPSB- Pil ROSS REFERENCE TABLE -- USER SYMBOLS 

sco =.900000 3718 «463e «49 be SEY le 639 68@* 69 747% be 
. eS a Cn nt ct tC x CORT eT SE 


1 
i314 1384 1392 1466 1474 1Se8e# 1536 2065 #2069% e070 207is 3533 


ac. #000001 372844 Y oo7# 632 640 689 697 748% 756 G27% 
310" 318 cee 143* 105] 11ig* 412d igie 1192 1e4ee 1256 
he hetale 1315 = 1385* 1393 1467 1S29*# 066  2100« 
ace =.000002 3738 4S Y . Sig8  Se2i(ssiSPBCShMROCSES# «= 5729s 
639 6408 645 650 654 660 69% 697" 701 707 71) 718 
6 72 782 786 797 §34* 635% 841 961 865 66 317s 
a) 979% 980 «= 984 90 1003 105d" «6 1081* 
1077 =: 1081S s«1087) ss 1d23* ilede 1130 1150 1154 ibe 1198* i19o* 120 
i213 1219S s«1eSS* §=«1eSbe §=— 1260 & 1270 1278 1314* 1315* i321 isl 
1356 * 1393" 1399 1419 1423 1938 1474e 1475* 1479 «1485 1488 
a. s . 1536 15372 1541 1547 155i 1566 1893 8067  2099% 
acz  =x900003 374p  48Se# 518 «= eSB 6C S81 0S DiC isa «SSC it?s 707 
7uge 782787 Boge (a 345 
990 6989 s1008_—i—i® «1077s 1084) sd?* «11501183 iSee «12091218 
1266 «= i275 s1308* «1341 «18 «613530 t3dbe «141914281435 iE e = 148 
—s. 1497 1530e «1547s «1S6 = s1563 = B0ES 2090 
aos = =x000004 3758 ‘2069 ©2097 
sts =.000055 3768 2071 «= 2095 
aN: — D61022 4i3a 0 498# )= Seek S23) Sue S S2g+# S7i# S595# Soe 597*  soge 
600 «603 = b44eES4e )=ESS# «= bSEw# = ES? GOH «= 701# = 7il# = Pic = 713 
715 716 719%  7oce 7868 7o78 789% 789 7928 7938 794 7978 
Bese  Bbb* 867" B65 869 870 B73 O7ue O7ce gB7be 877 8808 
932 933 34*# 935i Se HD (RHR He Se GE 
936+ 1002 1003* 1004* 1005+ 1006 1009 1057# 1081+ 10824 Cage 
1087# 1130# 1154e 1155+ 1iSe# 1157* 1158* 1159 llee* 1203* lelj* 1214 
i216 «= 1219* = 1260® §=«1270e «=«1a71*" «e728 «:1873e «= 1a74e 12 levee =ldel* 1345+ 
1347# 1348 1351# 13524 1353 1356# 1399 423* [Sede 1425" 142g" 9 14274 
T431# 1432* 1433" 1434+ «1435 1436e 479k) 14S9e «= 4Sce «= 14Sie# «1492 145K 
14 1S00# is4i# i5Si< isS2e i5S3e 15S4e jissse iss Issde isete iseis 
- 15631566 1893 
ANS2 © 901032 318s 485 5S 3306907 RH 73 «104 = ssLAL?s:192 
1308 «= 1386 «= 1468 «= 1530s 1E35* «= 1h36e «base «eae leNle «= 1E42e 
5  -OO1056 4308 
BEGIN OOllie 4344398 
SELL = 900207 3938 1572 1988 
SISPLA= 177570 3678 «1611l# 1615s 
cone G07002 15718 ae be , 
Summy = 900060 388 «= 403-« 04S HRC (SCN a)? nk a oc oe 
Wie 419 421 1679 1680 1683 1685 1687 1685 168: 1882 
DWNVEC 012130 w42e  -443#2103e «2104e «= 21468 
END: Ogis44 500 506 sie 46 §20—s—sSe7sOS BL 
ENCiO 004106 38 «= 989si882—s1001)Ss:1008 = idles x 
ENCi]  o04422 1089 1065 1075 1075 1079 «#41086 10908 
END12 004730 11320 «1138S t43ss1WRSss1S2sdG]—s13658 
ENCig oosibe . i205 1208 1211 1218 lees 
ENDi4S 005404 tebe s1ebS = sebB S877) 
ENCis 005714 1323. «1329S 1334S «133913431350 1385s 12888 
ENCiE 06244 1401 91407, t2 417142] 14301837 TSS 
END17  OOGSIC 148i «= 1484148?) s1H9H = s1SG—sSO38 
ENDe  O0e042 s73 «$79—=—ié<“‘CSHCs8SSS93BOtCi«éi 
ENDED © -O0E775 E43 54es549—s15Se@ ss 18e5 SES 
ENS «6 SOZE64 cue ENS ESE EES GES 


ee. 
Cot) 
ae & 


= at Ouw 
w Gia P 
-* 


-- 
> 


+b b+ me 
Oo 
5 Led $3 £Our a, 
MIMO ae 


4ron owor 
UG cr 
+ 


Ne Se 


ee 
LI 


oOvuo0d “Un 
“CO.0fU Leo 
oo 

oe 


2 FOC ODOR OnE 


“tee 


oo 


+ +h +e +b pop 


fo Ul £hotud. 


4. 


oO .0fu £e 
* > 


MRINDEC-11-D0 
DCFPSD.F11 
ENDS 002516 
Re 
ERROR 011504 
ERRORS piste 
ERRTI 10204 
ERR1 001434 
ERR11 O0432e 
ERRieg  OO4610 
FERRIS §©o0sS62 
ERR:6 00607e 
ERge pak’ ge 
ERSS 0026 
EeGRE 092204 
FES 001944 
FLTERR 010150 
FORT 012052 
FRC OC1O4%6 
FeS 00:04e2 
FPTADR Olelee 
PUAN Q1207e 
FPVECT Ot2124 
HINUM O010!2 
HLT = 194000 
TCNT 90100 
secUP 86 O11 742 
KIT OC7222 
LAD 012144 
LONUM 001002 
MileO O01]! 
NHERD 010774 
NOHEAD 010714 
NOP 86 = GOO0240 
OVER 007226 
PC =%000007 
POWOWN OLISHE 
CWUP |= COL1E3 
PRINTS Ol1S44 


703 


706 

77 

84 
7 


703 
8S4 
930 


2053 
18028 


PS-D FLOATING POINT ADD AND SUBT 
CROSS REFERENCE TABLE -- USER SYMBOLS 


a 
abs 
937 


21Sls 


+ EXERCISER 


MACY11 


27(732) 


7228 . . 
ge, oh 8S 
942 3468 


893+ 


i349 
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MAINDEC-11-DCFPS-D FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 
DCFPSD.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
PRINTS epee 20188 
is = bi t at 1740 2 
RANOMe 0102 4 621 737 839g 1032 1180 12% 14S5— 1804s 
RANOMY 910344 S46 678 816 361 1105 1237 1374 1518 164S8 
Te Ql 18148 1 
T @Q1 igssa ! 
T Oo 1884 «1895 = 21308 
RETAD 07514 1669 16778 
Tl 0014 4928 6 
RET10 03744 9808 
RET11 OO4266 10Sie 1685 
Tig D04SS4 lle4e 1686 
RETi 11998 
RET14 005274 12eS68 
RETIS 05526 13158 1689 
RET16  O06036 12938 1690 
RETI? 14758 
RET2 001666 S658 1678 
RET. 15378 
RET 002164 $408 
RETY 6978 
TS 002640 7568 #81681 
RETE 003150 8358 1682 
RET7 3500 9188 
=%000008 3628 44Se 481# SS4# 629% 686* 7454 Bo4s 307% 969# 
12e4S*® 1304" 13828 1464" 1Seb*# 1585* e2055* 2073 2052# 
Rl =”%000001 3638 1665% 1667# 1668# 2074 e0s4# 2085S 2091s 
4 =000002 3648 2075 2090# 
R3 =%000003 3658 1598% “078 2089+ = + 
zs =%000004 3668 474% 47% S2c# 679# 738% 817% 900# 9f2#  1033% 
1297# 1375% 14S7# 1519% 621 1627 1633 1637# 1643# 1664 
1718 1733 1737 1743 i74S*# 1756 1775 1779 1782 2020 
2077 2088* 
RS =~%090005 3678 2078 2087+# 
SAVE 012114 2079% #2083 el4ls 
SAVLAD 007202 1603 16098 1617 
SCOPE = 104400 33908 461 S3e 607 664 723 801 884 947 1013 
1282 1360 1442 1504 1570 
SHIFTe 010244 18168 1820 
SHIFT4 010402 18578 1861 
cP =%000006 Ss 430% “40% 1623% l6e4* 1625# l6c6# 1629% 1630%  1631% 
1639 640 i642 1670 1673 1731# 17328 i735% 1736 
1774% 1777% 1778% 17818 #2079 2083# 
SPACE 012034 1901 1908 1913 1916 1923 1928 1931 1950 1955 1958 
ScWR 8 = 177570 3858 387 1571 1576 1594 1896 1$98 1600 1602 1886 
SWOS = 000400 3778 =§=61594 
SWOS = 001000 278% 
SWi0 = 002000 379% = §=61571 
SWil = 004900 3808 1602 
SWie = 010900 38i8  iS76 
SWi3 = Se0090 3828 
SWi4s = 940000 2838 1600 
SWis = 100000 3848 
TIMES «6.012152 1606 21538 
TPB 012120 211S# 21438 
TPS Oigl1s ell els42s 


PAGE 49 


1040# 1113# 


1106#  1181# 
1674 1675# 
2021# 2039 
1091 1166 
1632e# if 
1739% 8617428 
1979 1982 
91 1934 


ee nee re eo ee we 


a SO eal oe nertbene POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE SO 
C 


DCFPSD.Pil FERENCE TABLE -- USER SYMBOLS 
| TREB 012142 1S78% 21498 
TSTl 001502 497 S14 5188 
HRs 8 a oe 
r 
PRS BBE ot a 
TST13 005100 1 12078 
TST14 Q0S322 1259 leb4s 
TSTIS 1320 1337 13418 
TST! 006140 1398 1415 14158 
TST1? 906414 1478 14838 
TSTe 001770 570 587 S3ls 
TSTe0 1540 15458 
TST3 002212 643 b4e 
TST4 00. 700 70S8 
TSTS 002742 761 778 7828 
TST 840 857 S618 
IST? O03Seé Se Sebs 
' TTY =x000005 3688 1899 1909 1914% 1917# 1924* 1929% 19328 1949 195i# 1956+ i95S# 2025+ 
20e7* e029 e111 elle® 2113 2elis 2eleae e2le4*e 2125 elzb+# 
TY 011272 1 1999 2001 20038 2010 
 TYH 011226 1983 19928 ee 
TYPE = # 1574 1889 1894 1895 1901 1904 190€ 19Cs 1913 1916 1913 1923 
| 8 1931 1950 1955 1958 1978 1982 2012 2043 2105 
TYPEA 011030 19448 1954 
TYPED OQ11110 2 1963% 
TYPEF O11126 1943 19698 
TYPEI 011034 1940 19478 
TYPE] 011142 1968 19748 
TYPE2 011206 19848 19 
TY2Z 011246 1993 19978 
TY] 011252 1974 1 
TY2 011260 1979 2000s 
TY3 0il266 980 1981 1984 20028 
UPVEC 012134 e061 e06ex e2080% 21478 
WORDS 012150 1898* 1911 1921 1926 21Ses8 
YESRT 007106 433% adi 15928 
SADD = exxEEE CG 3148 4e4 4B5 sS0 682 820 965 
= ££eeEe CG 3148 463 465 477 625 741 903 
007554 G 3148 16938 
SERTS 010074 1704 1717 17708 
SFEC 0010Se2 4278 468% S508 S41# 581 616% 673% 732% 772 Bills gs! 894% 9sé+ 
ee ie. 1100* 1140 117S* le3ee 1291% 1331 1369* 1409 14S1# 1S13% 172% 
SFPC 001054 4288 469% S13 S4ex S86 617% 674% 733% 777 812% gsS g9Sz 957% 
tt 1072 1101* 1145 1176* 1233% 1292% 1336 1370% 1414 14S2e 1514 1669% 
SFPS 0010590 46s 467% 81 493 Yoo 503 S40# SS4 S66 69 S76 615% 629 
642 648 672% 699 705 731% 74S 757 760 767 810% 924 
836 83 B46 93% 907 320 926 gsse# 969 93 383g 1026% O40 
1052 1055 1062 1099* 1113 1125 1128 1135 1174* 1188 120! 1207 l23is 
1245 1258 1264 1290* 1304 1316 13195 1326 1368% 1382 1394 1 3 1404 
1450% 1464 1477 14 1Slex 1526 1839 1549S 1645 1650# 1653 1eS7 1663% 
1671 1703 1716 1727" #81765 1767% 1769% 17708 i793 179 1924 1941 953 
SMINUS 012052 1021 21338 


SOVERA 010042 ; 1754 17658 
SCVERC 007774 1698 174S8 


ee ne ee ED TR EE) A + ee ee oe 


{ 
{ 


MAINDEC-11-DCFPS-D FLOATING POINT ADD AND SUBTRACT EXERCISER MACY11 27(732) 17-SEP-76 09:31 PAGE Si 
DCFPSO.P1i CROSS REFERENCE TABLE -- USER SYMBOLS 


SOVER1 010020 1700 7568 
abe pee 1 a7eoe 
Seba, passed 3 oie A (3 if ioe A it me ee 1033 1106 1181 1238 1297 
$POP2xX 007316 328 7 3h4 B5¢ 183 Lie 1203 1i28 16358 1713 1753 
Po fee 0 Oe ee 
! ° ( 
$P.28 BBS 04 476 740 ap 13 1186 l 33 14593 teSre 1208 
$P.4A O072S5e2 S48 818 963 1107 1239 1376 1520 16238 17193 1757 
SP.48 007274 cag 681 819 964 1108 1240 1377 1S21 16298 1720 1758 
SBD = #eeeER GC 3i48 ines 1025 1109 1241 1378 1522 
SSR = #eEeEE GC 3148 §102 1024 1036 1184 1300 1460 
SIGN 1 1021* 1904 2l3ls 
TER 1646 16668 
TOV 007476 1647 16708 
TOV1 10 167, 16748 
TST 007352 478 SS1 626 683 742 821 9c4 966 1037 1110 1185 1242 1301 
13793 1461 1523 164S5# 1712 1725 1752 1763 
TSTl lead 1649 165 1658 16618 
Te 74S6 1662 16648 
$TST3 007420 16S2 16558 
011006 1903 1905S 1907 1920 19398 
007704 1714 17278 
007616 1694 17038 
SUNDR1 Se 1696 17168 
007614 17018 
$200AD0 0134 1762 17818 
22 1708 17318 
$200A1 007736 1721 17358 
$200SB 007752 1711 1724 17398 
010104 1748 17738 
$200S: 0101e0 1759 17778 
$201SB8 2 1741 17438 
= 012154 395% 396 397% 4018 487 504 S093 560 577 582 635 32 7S! 
768 773 830 847 ese 913 97S 1046 1062 1068 1119 1136 1141 
1194 1251 1310 136? 1388 1405 1410 1470 1532 1794 1935 1976 
2017 2032 2035 040 20478 2105 2109 ell? 21408 
EMT 110 442 15948 
ERR 010142 17093 1722 9 1760 17848 
ERR] 764 463% 1022% 17098 
007674 464% 1023% 17228 
ERR3 0O10006 46S5* 1024 17498 
ERRY 010032 4664 1025 17608 
ET 010524 1887 18908 
IOT 011746 fool ellls 
.PR 011502 2e0ib* e2018% e2019% 2033*% 2034 2037* 20488 
-STAT 010704 19le 19198 
. TRP 010502 mse 18868 
~TYPE 912149 15734 1574 1888* 1889 199S5* 2003 2008% e20lix atte 21488 


aaemriaéa 
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DCFPSD.Pil OSS REFERENCE TABLE -- MACRO NAMES 


DUMP stile 1899 1909 1914 1917 1924 19293 1932 1947 1951 1956 19893 
PRINT sb6i8 2105 

3618 

TATUS bls “ 

YPEM le 1573 1886 





os ae 


aries 
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| DeFPSD PLL CROSS REFERENCE TABLE -- RNANENT S 


HUC 788 867 868 869 934 996 997 998 61347, 1428S) 1426271491 1SS3 
- Se te we te ie ib ie i I HG im 
1823 Bee 1828 1830 183 1882 1864 1866 186 1871 18 2120 2123 

ADDS 5 697 835 980 
492 640 918 
BEO 4 7 eos 809 4 77 7 3 4 
eam 2m mR af 
1086 1198 1 114 11a ise ied 395 lel 1218 1288 12 123 1328 
1332 1357 A 13s 1388 1486 1506 141 152] 4 14 1478 i367 
1499 1540 1549 1558 1565 1S86 1$95 1$97 1605 1617 16Se 1654 6 1696 
1 4 1717 174i 1766 1794 1887 1S9e2_ e0se=—s 2035 Se 2056) ell4 
2 £380 1650 1663 1727 1767 1769 1770 20ti 
if 648 1207 1264 1483 1S4¥S 1571 1576 1594 1600 1692 1645 
ITB it 1653 1703 1716 1740 1 1793 1886 1891 1939 
BMI 494 567 758 1053 1126 1317 1395 1646 1799 1942 1993 
BNE 649 7 989 1208 1265 1484 1546 1572 1$77 1601 1603 1607 1647 
1820 1861 1877 892 0 1976 1986 2010 2 2040 2054 2086 2l2e 
BPL 1579 1658 1662 1672 1912 1927 19 1954 2117 
BR 434 500 Sil 516 $73 $79 4 589 646 703 4 770 775 
843 849 854 859 $24 986 1089 1065 1070 1075 1132 1138 1143 1148 
1262 1323 1329 1334 1339 1401 1407 1412 1417 1481 1543 1714 1754 179 
1996 1999 = e001 e017 e0e3 e109 2118 * 
CFCC S02 519 5 $92 60 51 658 708 717 766 783 730 795 
862 871 878 936 94 991 1000 1007 1078 1085 1134 1151 
Hat 1616 1244 1276 1325 1342 i349 1354 1403 1420 1429 1436 1486 1493 
CLR 45¢e 453 468 469 470 471 472 $31 S41 S4e S43 S44 S4s 606 
617 618 619 620 663 673 674 675 676 677 722 732 733 734 
736 800 811 8le - 813 814 815 883 834 895 896 897 946 
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